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1.0  INTRODUCTION 


1.1  Scope  of  Document 


This  document  supplies  information  necessary  for 
maintaining  the  HAL/S-360  and  HAL/S-FC  compilers.  It 
is  intended  as  a companion  to  the  source  listings.  A 
large  portion  of  the  required  material  can  be  found  in 
the  Intermetrics'  documents: 


HAL/S-FC  Compiler  System  Specification,  IR-95-3. 
HAL/S-360  Compiler  System  Specification,  IR-60-3. 


HAL/S-FC  Compiler  System  Functional  Specification, 
IR-59-4. 


HAL/S-360  Compiler  System  Functional  Specification, 
PDRL  # IM004. 


and  in  the  IBM  Federal  Systems  Division  documents: 

Interface  Control  Document:  HAL/FCOS,  Revision  3. 

Interface  Control  Document:  HAL/SDL,  Revision  5. 


In  order  to  eliminate  the  problem  of  maintaining  multiple 
up-to-date  copies  of  the  same  information,  matieral  available 
in  the  above  doctiments  is  in  general  not  duplicated  here. 


Familiarity  with  the  above  documents,  is  presumed  through- 
out this  document.  References  to  the  above  documents  appear 
in  appropriate  places  and  occasionally  short  sections  have 
been  reproduced  here  for  convenience  or  clarity  of  presentation. 
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This  manual  is  for  the  HAL/S-360  and  HAL/S-FC  compilers 


and  their  associated  run  time  facilities  which  implement  the 
full  HAL/S  language^.  The  compilers  are  designed  to  operate 
"stand-alone”  on  any  compatible  IBM  360/370  computer  and  within 
the  Software  Development  Laboratory  (SDL)  at  NASA/JSC,  Houston, 
Texas . 


1 HAL/S-360  User's  Manual,  10  May  1976,  IR-58-13. 

2 HAL/S-FC  User's  Manual,  10  May,  1976,  IR-83-8. 

3 HAL/S  Language  Specification,  24  November  1975,  IR-61-7. 
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1.0  INTRODUCTION 


X#" 


1 , 1 Scope  of  Document 


This  document  supplies  information  necessary  for 
maintaining  the  HAL/S-360  and  HAL/S-FC  compilers.  It 
is  intended  as  a companion  to  the  source  listings.  A 
large  portion  of  the  required  material  can  be  found  in 
the  Intermetrics'  documents? 

HAL/S-FC  Compiler  System  Specification,  IR-95-3. 

HAL/S-360  Compiler  System  Specification,  IR-60-3. 

HAL/S-FC  Compiler  System  Functional  Specification, 

IR-59-4. 

HAL/S-360  Compiler  System  Functional  Specification, 

PDRL  # IM004. 

and  in  the  IBM  Federal  Systems  Division  documents: 

Interface  Control  Document:  HAL/FCOS,  Revision  3. 

Interface  Control  Document:  HAL/SDL,  Revision  5. 

In  order  to  eliminate  the  problem  of  maintaining  multiple 
up-to-date  copies  of  the  same  information,  matieral  available 
in  the  above  documents  is  in  general  not  duplicated  here. 

Familiarity  with  the  above  documents  is  presumed  through- 
out this  docioment.  References  to  the  above  documents  appear 
in  appropriate  places  and  occasionally  short  sections  have 
been  reproduced  here  for  convenience  or  clarity  of  presentation. 

This  manual  is  for  the  HAL/S-360^  and  HAL/S-FC^  compilers 
and  their  associated  run  time  facilities  which  implement  the 
full  HAL/S  language^.  The  compilers  are  designed  to  operate 
"stand-alone"  on  any  compatible  IBM  360/370  computer  and  within 
the  Software  Development  Laboratory  (SDL)  at  NASA/JSC,  Houston, 
Texas. 


1 HAL/S-360  User's  Manual,  10  May  1976,  IR-58-13. 

2 HAL/S-FC  User's  Manual,  10  May,  1976,  IR-83-8. 

3 HAL/S  Language  Specification,  24  November  1975,  IR-61-7. 
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1.2  Outline  of  the  Document 


The  HAL/S  compiler  system  consists  of: 

1)  A sub-monitor,  coded  in  assembly  language  which 
interfaces  the  rest  of  the  compiler  to  its  operating, 
environment.  The  rest  of  the  compiler  is  written 

in  XPlI. 

2)  Phase  1 of  the  compiler  which  performs  lexical, 
syntactic,  and  semantic  analysis  passing  the  acciamulated 
information  along  to  subsequent  phases.  Phase  1 

also  produces  an  annotated  source  listing. 

3)  Phase  1.5  of  the  compiler  which  performs  machine 
independent  optimizations. 

4)  Phase  2 of  the  compiler  which  performs  code  generation 
and  assembly  for  either  the  IBM  360  (HAL/S-360)  or 
IBM  AP-101  (HAL/S-FC) . 

5)  Phase  3 of  the  compiler  which  generates  a set  of 
simulation  tables  to  aid  in  run  time  verification. 

6)  HALLINK  which  augments  the  function  of  the  normal 
linkage  editor. 

7)  A comprehensive  run-time  library  which  provides  an 
extensive  set  of  mathematical,  conversion,  and 
language  support  routines. 


1 McKeeman,  Horning,  and  Wortman,  A Compiler  Generator, 
Prentice-Hall,  Englewood  Cliffs,  N. J.  (l97o) . 
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Section  2 provides  an  overview  of  the  compiler  and 
the  run  time  environment  it  expects. 

Section  3 provides  a detailed  description  of  the  data 
structures  used  by  more  than  one  phase. 

Section  4 provides  a detailed  description  of  the  data 
and  subroutines  in  Phase  1. 

Section  5 provides  a detailed  description  of  the  data 
and  sub-routines  in  Phase  2 of  HAL/S-FC  and  where  necessary , 
a second  description  for  the  HAL/S-360  routine. 

Section  6 provides  a complete  discussion  (data  and 
procedures)  of  Phase  1.5  - the  optimization  pass. 

Section  7 discusses  the  libraries. 

Section  8 discusses  HALLINK. 

Section  9 provides  details  for  the  sub-monitor  including 
flow  diagrams. 

Section  10  discusses  the  real  time  simulation  facility 
available  in  HAL/S-360. 

Section  11  discusses  the  macro  libraries  used  for  writing 
AP-101  or  360  assembly  language  programs  compatible  with  HAL/S 
compiler  generated  code. 

Section  12  deals  with  the  routines  available  for  accessing 
the  SDP  tables  produced  by  Phase  3. 

Section  13  explains  those  features  which  Intermetrics 
added  to  the  standard  360  XPL  implementation. 

This  document  was  compiled  over  a long  period  of  time. 
Material  was  acquired  from  many  different  people  and  several 
internal  documents.  Because  of  these  factors,  the  level  of 
detail  varies  greatly.  An  attempt  was  made  to  define  a 
reasonable  level  of  documentation,  the  level  depending  on 
the  importance  and  complexity  of  the  thing  to  be  documented. 
When  more  detailed  material  already  existed,  however,  it  was 
included. 
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1.3  Status  of  Docviment 


This  document  plus  the  documents  mentioned  in  Sections  1.1 
and  1.2  plus  the  source  code  comprise  the  complete  maintenance 
documentation  for  the  HAL/S-FC  and  HAL/S-360  compilers.  This 
publication  documents  release  10  of  the  HAL/S-FC  compiler  and, 
release  14  of  the  HAL/S-360  compiler. 


i 

I 

i 

1 
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2.0  OVERVIEW  OF  THE  HAL/S  SYSTEM 


2.1  Once  Over  Lightly 

HAL/S  is  a large  sophisticated  language  and  its  imple- 
mentation on  the  AP— 101  and  360  computers  produce  very  high 
quality  translations.  It  is  no  surprise,  therefore,  that 
the  compiler  is  a large  multi-pass  design.  The  overall 
compiler  can  be  broken  into  four  phases: 

Phase  1 inputs  the  source  language  and  does  a 

syntactic  and  semantic  analysis  generating 
the  source  listing,  a file  of  instructions 
in  an  internal  format  (HALMAT)  and  a collec- 
tion of  tables  to  be  used  in  subsequent 
phases. 

Phase  1.5  massages  the  code  produced  by  Phase  1, 

performing  machine  independent  optimization. 


I 
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Phase  2 inputs  the  HALMAT  produced  by  Phase  1 and 
outputs  machine  language  object  modules  in 
a form  suitable  for  the  OS-3 60  or  FCOS 
linkage  editor. 

Phase  3 produces  the  SDF  tables. 

The  four  phases  described  above  are  written  in  XPL,  a 
language  specifically  designed  for  compiler  implementation. 

It  is  essential  that  the  reader  be  familiar  with  most  of 
the  contents  of  the  book,  "A  Compiler  Generator",  by  McKeeman, 
Horning  and  Wortman,  which  describes  the  XPL  compiler  writing 
system.  The  XPL  compiler  (XCOM)  requires  more  sophisticated 
interaction  with  the  operating  system  than  that  provided  in 
the  XPL  language;  thus,  the  compiler  (written  in  XPL)  xs  aug- 
mented by  a sub-monitor  (written  in  assembly  language) . The 
HAL/S  compiler  has  a substantially  larger  but  conceptually 
similar  sub-monitor.  Thus,  the  compiler  itself  is  built  of 
four  phases  written  in  XPL  plus  a sub— monitor  written  in 
assembly  language. 

In  addition  to  the  compiler,  there  is  a large  library 
containing  all  the  routines  that  can  be  explicitly  called 
by  the  source  language  programmer  plus  a large  collection  of 
routines  for  implementing  various  facilities  of  the  language 
(e.g.  matrix  operations,  I/O,  etc.) . These  routines  are 
^j^xtten  in  the  assembly  language  of  the  target  machine. 
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Certain  information  only  becomes  available  at  the 
link  Step  of  a job.  Since  the  OS  360  linkage  editor  is 
not  capable  of  performing  all  the  functions  required,  it 
is  augmented  by  HALLINK;  this  step  is  not  required  on 
the  flight  computer  where  the  FCOS  linkage  editor  is 
more  closely  aligned  with  the  HAL/S  compiler’s  object 
modules. 

HAL/S  has  substantial  facilities  for  doing  real  time 
programming.  These  facilities  are  intended  for  use  on  the 
flight  computer  where  they  are  supported  by  the  operating 
system.  In  order  to  allow  testing  of  such  programs  using 
HAL/S-360,  a real  time  executive  has  been  produced  to 
simulate  flight  computer  real  time  in  the  HAL/S-360  environ- 
ment . 

A considerable  quantity  of  assembly  language  has  been 
written  to  interface  with  HAL/S  object  code  (e.g.  the 
libraries) . To  facilitiate  this  process,  a library  of 
macros  has  been  produced  for  the  AP-101  and  another  for 
the  360. 

The  above  material  constitutes  the  complete  HAL/S 
system.  In  addition  to  that  system,  we  also  describe  some 
changes  made  in  the  XPL  language  to  facilitate  construction 
of  the  HAL/S  compiler. 
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2.2  A Firm  Foundation 


As  described  in  Section  2.1,  the  HAL/S  compiler  is 
made  up  of  separate  modules,  each  module  performing  a 
distinct  function  in  the  compilation  process.  The  relation- 
ships of  the  various  modules  in  the  compiler  to  each  other 
and  to  the  compiler  environment  are  shown  in  Figures  1 and 
2.  The  five  modules  of  the  compiler  (sub-monitor.  Phase  1, 
Phase  1.5,  Phase  2,  Phase  3)  are  described  in  more  detail 
in  the  following  sub-sections. 


2.2.1  The  Sub-monitor 


The  sub-monitor  is  the  controlling  module  in  a 
compilation.  It  performs  all  sequencing  and  control 
operations. 


The  sequencing  function  of  the  sub-monitor  directs 
the  compilation  by  deciding  which  of  the  other  modules  are 
in  the  computer  memory.  The  sub-monitor  makes  use  of  overlay 
techniques  to  make  maximum  utility  of  available  memory.  The 
sub-monitor  supervises  loading  and  execution  of  the  other 
modules  and  passes  any  required  information  between  the 
modules. 


li 


The  control  function  of  the  sub-monitor  handles  all  : 
interfaces  between  secondary  modules  in  memory  and  the 
operating  system  under  which  the  entire  compiler  runs.  These 
interface  functions  include  all  Input/Output  operations,  all 
memory  management,  and  all  special  requests  to  the  operating 
system  such  as  time-of-day  information. 


The  sub-monitor  is  written  in  OS/3 60  Basic  Assembler 
Language. 


m 


2.2.2  Phase  1 


The  basic  design  cf  phase  1 started  with  the  XCOM 
design.  The  scanner  routine  has  been  replaced  by  a much 
more  complicated  routine  to  handle  the  multi-line  format 
that  HAL/S  supports  and  an  entire  new  module,  the  output 
writer,  was  added  to  produce  the  indented,  annotated,  multi- 
line  HAL/S  source  listing.  The  MSP  parser  has  been  replaced 
by  a LALR  parser.  Notice  that  since  both  MSP  and  LALR 
parsers  reduce  the  handle,  the  rest  of  the  compiler  does  not 
care  which  parser  is  being  used.  Anybody  working  on  the 
parser  should  first  familiarize  himself  with  the  work  of 
DeRemer  ("Simple  LR(h)  Grammars",  Comm.  ACM  1971)  and  Lalonde 
(CSRG  Report  #2,  University  of  Toronto). 
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Phase  1 performs  all  syiitactic  and  semantic 
analysis  of  the  user's  HAL/S  source  statements.  This 
analysis  is  driven  by  a parsing  system  which  generates 
a complete  parse  of  the  input.  The  parsing  algorithm 
detects  and  identifies  all  syntax  errors  in  the  source 
statements  and  makes  information  generated  as  a result 
of  the  parse  available  to  other  sections  of  Phase  1. 

Phase  1 is  responsible  for  the  identification  of 
all  compiler  directives  and  for  the  proper  implementation 
of  the  facility  which  allows  separate  compilation  of  COMPOOLs, 

COMSUBs,  and  PROGRAMS. 

This  separate  compilation  facility  is  illustrated  in 
Figure  2.  The  boxes  labeled  1 through  3 each  identify  a 
separate  Unit  of  Compilation.  A Unit  of  Compilation  is  the 
minimum  element  of  the  HAL/S  language  which  may  be  compiled 
separately. 

Units  labeled  1 and  2 illustrate  the  system  which 
is  implemented  by  the  compiler  to  allow  separate  compilation 
of  COMPOOLs  and  external  PROCEDURES  and  FUNCTIONS  (COMSUBs). 

This  system  allows  the  compiler  to  perform  complete  static 
verification  of  all  data  types  and  formal  parameters  even  in 
PROGRAMS  (Unit  3)  which  reference  separately  compiled  Units. 

This  system  is  implemented  by  producing  a symbolic  template 
for  each  Unit  1 or  Unit  2 compilation  as  well  as  any  object 
code.  When  a PROGRAM  makes  reference  to  one  of  these  separate 
Units,  the  symbolic  template  must  be  INCLUDE 'd  (identified 
by  an  INCLUDE  compiler  directive)  by  the  programmer.  Phase  1 
automatically  generates  these  templates  whenever  a Unit  of 
Compilation  of  type  1 or  2 is  compiled.  The  templates  are 
compatible  with  standard  INCLUDE  library  formats. 

Phase  1 is  also  responsible  for  production  of  the 
source  listing  and  the  symbol  table/cross  reference  table 
listing.  Phase  1,  written  in  the  XPL  language,  consists 
of  four  distinct  parts; 

■ 1.  The  Scanner 

2 . The  Syntax  Analyzer 

3 . The  Semantic  Analysis  Routines 

4 . The  Listing  Synthesizer 

Figure  3 illustrates  the  organization  of  Phase  Tin 
more  detail. 
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The  Scanner.  The  Scanner  is  sometimes  called  the 
Lexical  Analyzer.  It  scans  the  sequence  of  characters 
that  comprise  the  source  input  (letters,  digits,  punctu- 
ation, spaces)  and  generates  a stream  of  tokens  which 
are  meaningful  symbols  to  the  Syntax  Analyzer,  (e.g. 
reserved  words,  identifiers,  literals,  and  other 
terminals) . It  discards  the  semantically  irrelevant  text 
and  handles  embedded  comments.  The  proper  interpretation 
of  multi- line  input  is  done  in  the  Scanner. 

Each  symbol  is  converted  to  an  internal  "token”  in 
a simplified  format  so  that  the  analyzer  is  presented  with 
a stream  of  uniform  symbols.  This  permits  the  rest  of 
the  compiler  to  operate  in  an  efficient  manner  using  fixed 
length  numerically-fomatted  data  instead  of  variable  length 
character  strings.  The  Scanner  is  called  upon  by  the  Syntax 
Analayzer  as  needed  to  deliver  the  next  token  from  the 
input  stream. 

The  requirement  for  a scanner  module  rather  than  the | 
much  simpler  standard  XPL  scanner  is  generated  by  the  multi- 
line  HAL/S  input  format  and  the  more  complicated  grammer. 

The  HAL/S  source  statements  are  originally  entered  into  the 
compiler  in  the  form  of  card  images.  The  text  of  the  state- 
ments occupies  columns  2-80. 

Column  1 is  reserved  for  defining  the  type  of  the 
individual  card  as  follows: 

'C  in  column  1 indicates  a comment  card.  The 
contents  of  the  card  will  be  ignored  by  the 
compiler. 

'D'  in  column  1 indicates  a compiler  directive 

card.  Compiler  directives  inform  the  compiler 
of  user  requests  for  specific  compilation 
features, 

'M'  in  column  1 indicates  the  main  line  of  a HAL/S 

statement.  Columns  2-80  of  the  card  may  contain 
HAL/S  statement  text. 

'E'  in  column  1 indicates  the  exponent  line  of  a 

HAL/S  statement.  Columns  2-80  of  the  card  may 
contain  HAL/S  statement  text.  These  cards  may 
only  occur  in  association  with  an  'M'  Card. 


.1 
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'S'  in  column  1 indicates  the  subscript  line  of 
a HAL/S  statement.  Columns  2-80  of  the  card 
may  contain  HAL/S  statement  text.  These  cards 
may  only  occur  in  association  with  an  'M'  card. 

')6'  blank  in  column  1 will  be  treated  by  the  compiler  ■ 
as  if  it  were  an  'M' . 

All  other  characters  occuring  in  column  1 are  treated  as 
errors.  Such  illegal  characters  will  cause  the  card  on 
which  they  occur  to  be  treated  as  a comment  card.  The 
compiler  also  flags  any  illegal  sequence  of  cards  as  an 
error.  The  HAL/S  compilers  accept  user  input  in  single 
line  or  multi-line  form  as  described  in  the  HAL/S  Language 
Specification . 

The  scanner  reads  source  statements  from  either 
the  normal  source  (SYSIN)  or  from  an  INCLUDE  library. 

An  include  library  contains  auxiliary  source  inputs  that 
may  be  called  in  by  user  requests.  The  source  to  be 
included  may  be  either  user-written  source  statements  or 
template  data  generated  by  the  compiler  for  COMPOOLS  or 
COMSUBs.  The  INCLUDE  library  takes  the  form  of  a partitioned 
data  set.  An  individual  member  of  the  data  set  is  the 
minimum  data  which  can  be  INCLUDE 'd. 

In  addition  to  its  principal  input  function  of 
reading  source  programs,  the  scanner  has  a secondary 
function  of  reading  the  Program  Access  File  (PAF) . This 
file  contains  information  used  by  the  compiler  to  assign 
ACCESS  rights  to  individual  users.  The  structure  of  the 
data  set  is  a partitioned  organization  with  each  member 
specifying  the  ACCESS  rights  for  one  Program  Identification 
Name  (PIN). 


The  scanner  also  has  an  output  function.  Since  the 
primary  source  listing  is  completely  reformatted  by  the 
compiler,  an  optional  secondary  source  listing  may  be 
requested  which  lists  the  original  card  images  as  they 
were  input  to  the  system. 


The  Syntax  Analyzer.  The  Syntax  Analyzer  decomposes  the 
input  stream  as  delivered  by  the  scanner  to  determine  if  it  is 
legal  according  to  the  grammar  of  the  language.  Once  the  parser 
verifies  the  syntactic  correctness  of  the  input,  control  is 
passed  to  the  appropriate  semantic  analysis  routine. 

The  parse  is  conducted  using  the  table-driven  algorithm 
of  DeRemer  and  Lalonde. 
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The  Semantic  Analysis  Routines.  Once  a complete 
syntactic  check  has  been  perf orraedT"and  the  format  identi- 
fied, a semantic  routine  is  invoked.  Given  the  particular 
construct  and  access  to  the  compiler  tables,  the  analysis 
routine  checks  for  semantic  correctness  and  then  interprets 
the  meaning.  The  result  of  this  interpretation  is  some 
action  taken  by  the  compiler  to  properly  implement  the 
language  construct  in  question.  This  action  may  range 
from  adding  information  to  the  symbol  table  to  generating 
some  intermediate  code  language  elements  (HALMAT) . The 
HALMAT  is  a machine  independent  representation  of  the  program 
being  compiled.  It  is  used  to  drive  the  code  generation 
process.  The  HALMAT  is  further  discussed  under  the  topic 
of  internal  compiler  data  transfer. 

In  addition  to  its  principal  analytic  function,  the 
semantic  analysis  phase  also  adds  useful  information  to 
the  source  listing.  Specifically: 

a)  Block  Summaries.  At  the  close  of  each  PROCEDURE, 
TASK,  PROGRAM,  FUNCTION,  or  UPDATE  block,  a 
summary  of  interactions  between  the  block  being 
closed  and  the  outer  scope  in  which  the  block  is 
nested.  The  information  includes  both  variable 
and  block  references  (e.g.  a block  summary  for 

a PROCEDURE  lists  all  variables  used  in  that 
PROCEDURE  and  any  code  blocks  referenced  by  that 
PROCEDURE) . 

b)  Program  Layout.  At  the  close  of  any  PROGRAM, 
a summary  of  all  blocks  contained  within 

the  PROGRAM.  This  summary  lists  the  name  and 
type  of  each  block  and  will  indicate  by  indenta- 
tion, the  nesting  relationships  which  exist 
between  the  blocks. 

The  semantic  analysis  module  is  also  responsible 
for  producing  templates  for  COMPOOLs  and  external  procedure 
COMSUBs.  Whenever  a COMPOOL  or  COMSUB  is  compiled,  the 
HAL/S  compiler  produces  a symbolic  template  of  the  compiled 
module.  Refer  to  Figure  2 for  a graphic  representation  of 
the  compilation  process.  The  templates  generated  in  this 
manner  serve  to  define  all  interfaces  between  the  COMPOOL 
and  COMSUB ’s  and  the  HAL/S  programs  in  which  they  are  used. 
The  templates  are  generated  to  be  compatible  with  the  INCLUDE 
library. 


2-10 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (6T7)  661-1840 


is  provldsr?n'’^n»i°!l  ® COMPOOL  or  COMSUB  a mechanism 
s provided  to  generate  a new  template  only  when  the  old 
template  needs  to  be  changed. 

, The  Output  Writer.  At  appropriate  points  in  the 
analysis , the  Output  Writer  is  given  control.  This  routine 

annotated  primary  source ’listing  by 
statements.  The  synthesis  is  ^ 
tables  and  other  data  generated  during 
syntactic  and  semantic  analysis.  ^ 

requirement  for  an  output  writer  module  rather 
the  simpler  existing  XPL  system  is  generated  by  the 
format  of  the  HAL/S  primary  source  listing.  This  listina 

automatic  annotation  to  enhance  the 
readability  of  the  HAL/S  source  code.  It  allows  each 
programmer  to  enter  his  programs  in  free-form  inpu?  consis- 
tent  with  his  own  coding  preferences.  The  compiler  edits 

.-i  r ® standard  listing  form 

that  all  program  listings  observe  the  same  coding  rules. 

Although  original  HAL/S  source  input  is  in  the 
form  of  card  images,  the  compiler  treats^the  input  al  a 

listina°«?  Of  information.  Elements  of  the  source 

listing  are  generated  statement-by-statement,  regardless 
of  the  original  input  form.  cyajruxess 

exoan.^i'on  performed  by  the  compiler  includes 

Unrfo?m  ® HAL/S  input  into  full  multi- 

line form,  the  addition  of  annotation  marks  (overpunches 

Srs?atSLn2f."""""  brackets)  , and  the  logical  indenting' 

The  annotation  generated  by  the  compiler  is  in  the 
form  of  marks  supplied  to  indicate  the  type  or  organization 
of  individual  symbols.  The  marks  are  generated  as  follows- 


Overpunches  - 


Variables  of  type  vector,  matrix, 
character,  bit,  or  structure  appear 
in  the  listing  with  a characteristic 
mark  ^bov©  th©  variable  name  as  in  M 
for  a matrix.  The  marks  are: 

* for  matrix, 

“ for  vector, 

, for  character, 

. for  bit  or  boolean, 

+ for  structure. 


2-11 


INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


Brackets 


Variables  which  have  dimensioned  array 
or  structure  organization  are  enclosed 
in  brackets: 

[A]  for  arrays, 

{S}  for  structures. 

Bracketing  occurs  in  addition  to 
overpunching. 

Underlining  All  REPLACE  variables  are  underlined 
when  they  appear  in  the  listing, 

e.g.  REPLACE  A BY  "B"; 


C = A + D; 


Statement  indentation  is  done  to  highlight  the 
logical  construction  of  the  program.  In  general,  the 
more  deeply  a statement  is  indented,  the  deeper  it  is  in 
the  logical  construction  of  the  program.  The  indentation 
performs  alignment  of  associated  statements  (e.g.  END  and 
CLOSE  statements  are  indented  identically  as  their  respective 
DO  or  PROCEDURE  statements . ) 

The  primary  source  listing  identifies  each  HAL/S 
statement  with  a statement  number.  The  listing  also 
identifies  program  blocks  by  listing  the  name  of  the  block 
in  which  a statement  occurs  in  the  right  margin  associated 
with  that  statement. 

Cleanups . In  addition  to  the  four  major  modules 
described  above,  phase  1 also  has  a collection  of  cleanup 
routines  which  append  additional  material  to  the  listing. 

In  particular,  they  produce: 

a)  Symbol  Table  Listing.  A display  of  the  complete 
symbol  table  generated  during  the  compilation. 

The  table  is  sorted  alphabetically  and  identifies 
each  user-defined  symbol  by  name.  The  table 
identifies  all  attributes  of  the  symbols,  such  as 
type,  array/structure  size,  matrix/vector  size, 
character  string  length,  precision,  etc. 
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b) 


c) 


d) 


Reference  Table  Listincr.  in  the  Symbol 
bie  Listing,  a display  of  the  complete  cross 

for  each  symbol  defined.  This  table 
indicates,  by  number,  the  statements  in  which  indi- 

compilation.  In 

listing  indicates  the  type  of  reference 
monf  symbol  by  distinguishing  between  assign- 

thS  ^ subscript.  Also, 

the  cross  reference  listing  summarizes  total  usage 

of  variables  (e.g.  if  a variable  is  declared,  but 
never  used,  the  listing  will  indicate  this  condition). 
If  the  usage  summary  indicates  that  a variable  is 
referenc®d  but  never  assigned  a value,  the  compiler 
will  flag  this  condition  as  an  error. 

ggplace  Text  Listing.  For  each  variable  defined 
^®4-u  variable,  the  compiler  lists  the 

text  that  was  substituted  for  the  variable. 

Error  Message  Summary.  When  compilation  errors 
were  detected,  the  compiler  already  inserted  an 
epor  message  in  the  primary  source  listing  at 
the  point  of  detection.  At  the  end  of  the  primary 
source  listing,  a summary  of  errors  is  printed 
indicating  which  statements  in  the  compilation 
received  such  error  messages. 
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2.2.3  Phase  1.5 

Phase  1.5  attempts  machine  independent  optimizations 
on  the  HALMAT.  Since  an  understanding  of  Phase  1.5  is  not 
necessary  for  the  rest  of  the  compiler,  it  is  treated  as  a 
separate  topic  after  the  discussion  of  phase  2^  At  present, 
phase  1.5  eliminates  common  subexpressions,  folds  constants, 
eliminates  unnecessary  matrix  transpose  operations  and 
reduces  the  strength  of  some  operators.  Long  term  plans 
call  for  a substantial  extension  of  these  facilities.  Before 
doing  any  work  on  phase  1.5,  the  Intearmetrics  Report,  Coimnon 
Subexpression  Recognition,  IR  #127”1  (7  July  1975)  should  oe 
carefully  studied. 


■1 
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2.2.4  Phase  2 

By  the  end  of  phase  1.5,  an  optimized  machine  indepen- 
dent representation  of  the  program  exists  in  the  form  of 
HALMAT  plus  tables.  Phase  1 and  1.5  are  identical  for  the 
FC  and  360  compilers.  Phase  2 translates  the  HAUVIAT  into 
object  modules  using  a three  pass  design. 

Pass  1 allocates  storage  for  data  and  translates 
to  a second  intermediate  code  resembling  360  machine  language. 
Pass  2 resolves  all  forward  address  references  and  compactifies 
the  code  by  eliminating  unnecessary  base  register  loads  on 
the  360  and  using  short  form  addressing  on  the  AP-101.  Pass  3 
produces  object  modules  for  either  the  360  or  AP-101. 

Phase  2 for  the  AP-101  is  an  adaptation  of  phase  2 for 
the  360;  consequently,  the  two  programs  have  the  same  overall 
design  and  many  routines  are  identical  or  differ  only  in 
minor  details.  A major  part  of  phase  2 deals  with  keeping 
track  of  register  contents,  storing  intermediate  values,  etc. 
This  part  is  essentially  identical.  The  code  dealing  with 
compactification  is  substantially  different. 

The  Code  Generation  Phase  acquires  all  necessary  data 
from  previous  phases  and  uses  that  data  to  direct  the  genera- 
tion of  object  code  for  the  target  computer. 


Phase  2 produces,  on  request,  a formatted  mnemonic 
listing  of  object  code  produced.  In  addition.  Phase  2 must 
supply  proper  object  code  interfaces  to  the  runtime  system. 

Phase  2 contains  four  distinct  sections  operating  in 
three  passes; 

1.  Declared  Storage  Allocation 

Pass  1 

2 . Initial  Code  Generation 


3 .  Code  Compaction 


f Pass  2 


4.  Object  Module  Creation.  [ Pass  3 

Figure  4 illustrates  the  organization  of  Phase  2 in 
more  detail.  Phase  2 is  written  in  the  XPL  language. 


i . . . 

rf 

W.  . . 
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Pass  1 


. - Declared  Storage  Allocation,  Using  symbol  table 

module  (INITIALISE) 

allocates  the  necessary  memory  data  explicitly  declared 

to  best''?aJ;  of  storage  is  done  in  a manner 

° o ^ advantage  of  word  alignment  and  frequency  of 
use.  Base  registers  are  assigned  to  data  at  this  timL 

"V"  Generation . This  module  (GENERATE), 

Phase  1 into  a second  intermediate 
allocatlo!?^  extension  of  360  machine  language.  Register 

this  point'  ^ stores,  etc.  are  all  determined  at 

During  this  pass,  local  machine  dependent  optimizations 
are  performed  to  reduce  the  amount  of  code  generated  Each 
time  a variable  is  to  be  forced  into  a regilte?ra  check  is 

or  still^I^iJts”^  variable  has  been  previously  loaded 

vLfahi'i  exists  in  the  register  which  last  assigned  the 
variable.  If  so,  the  register  version,  rather  than  the 

associated  arithmetic  operation. 
This  scheme  also  works  for  indexed  variables.  Also,  constant 
terms  involved  in  additive  operations  are  carried  at  compile 

incorporated  into  the  variable  part 
of  the  expression.  Thus,  part 

J = 8 + ((K  + 3)  - 2)  + 4; 
is  compiled  as  if  the  statement  were; 

J -■=  K + 13; 

Operations  which  are  cummutative  are  commuted  if; 

1.  the  right-hand  operand  is  in  a register, 

2.  the  right-hand  operand  is  a literal  which  can 

oe  loaded  by  an  immediate  instruction. 

Included  in  the  Code  Generation  is  the  building  of  the  list 

This  data  is  originally  obtained  from 
the  Literal  File,  which  contains  the  constants  in  a generalized 
internal  form.  The  generated  constants  are  specific  to  the 

(e.g.  geneSe  K integer 

constant  rather  than  a floating  point  constant) . The  last  ^ 
in  pass  1 is  outputting  the  generated  constants  onto 
the  intermediate  code  file  using  GENERATE  CONSTANTS. 
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Pass  2 


Code  Compaction.  This  pass  (OBJECTjCONDENSER)  operates 
both  on  generated  object  data  and  generated  object  instruc- 
tions. 

The  generated  constants  are  output  starting  with  those 
requiring  the  largest  boundary  alignment  being  emitted  first. 
This  compresses  the  literal  pool  to  its  smallest  possible 
size. 

During  initial  code  generation,  all  branches  to  unknown 
labels  (i.e.  any  forward  references)  .generate  an  instruction 
sequence  to  reach  any  possible  destination.  The  compaction 
process  attempts  to  reduce  this  to  a short  instruction  on 
the  AP-101  and  to  eliminate  the  base  register  load  on  the 
360. 

This  section  will  also  compute  the  actual  length  of  code 
and  the  data  in  each  control  section. 


Pass  3 

Object  Module  Creation.  This  pass  (OBJECT_GENERATOR)  trans- 
forms the  internally  coded  instructions  and  data  into  standard 
FCOS  or  OS/3 60  object  module  format.  This  includes  generation 
of : 

a)  ESD  cards  for  each  control  section. 

b)  SYM  card  for  SYMBOLS  defined  in  program. 

c)  TXT  cards  for  code  and  initial  data. 

d)  RLD  cards  for  necessary  address  constants. 

e)  END  card  for  each  PROGRAM. 

f)  Object  Code  Listing.  On  request,  this  module  will 
also  produce  a formatted,  mnemonic  listing  of  object 

I code  produced  by  the  code  generation  Phase.  This 

I listing  identifies  basic  machine  instructions  by 

1 their  standard  assembler  language  mnemonics.  References 

to  data  and  to  program  addresses  are  identified  by  symbol 
reference.  Corresponding  HAL/S  data  names  are  indicated 
I in  the  listing.  The  assembler  code  listing  shows  generated 

I instructions  on  a statement  by  statement  basis,  following 

^ the  same  order  as  the  HAL/S  source  statement  (i.e.  nesting 

of  HAL/S  code  blocks  which  produce  separate  CSECT's 
will  cause  the  assembler  code  listing  to  display  the 
I generated  CSECTs  in  a nested  manner) . The  individual 

I lines  in  the  assembler  code  listing  are  compatible  in 

i format  with  the  absolute  listing  function  of  the  link 

editor.  • 
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2.2.5  Internal  Data  Transfer 


Communication  between  Phases  of  the  HAL/S  compiler 
occurs  in  two  ways:  1)  via  direct,  in-memory  tables  (i.e. 
common  areas)  and  2)  via  data  stored  on  direct  access  I/O 
devices  by  one  Phase  and  retrieved  for  use  by  another  Phase. 

Figure  1 shows  the  data  relationships  that  exist 
in  the  compiler.  The  relationships  to  be  discussed  in 
this  section  are  those  involved  in  inter-Phase  communica- 
tion. Data  transfer  is  in  one  direction  only;  i.e.  since 
phases  operate  in  sequence  and  not  concurrently  or  iteratively, 
data  can  only  flow  from  earlier  to  later  phases. 


Monitor/Phase  Data  Relationships 

The  Monitor  does  not  participate  in  the  actual 
generation  or  retrieval  of  any  inter-Phase  data.  It 
acts  only  as  a central  channel  for  managing  I/O  operations 
on  such  data,  or  as  an  overlay  supervisor  in  the  handling 
of  memory-resident  common  data.  The  Monitor  may  receive 
data  from  individual  Phases  in  the  form  of  completion 
codes  indicating  whether  the  compilation  sequence  is  to 
continue. 

Phase  1/Phase  1.5/Phase  2 Data  Relationships 

The  interface  between  Phase  1 and  1 . 5 and  Phase  2 
has  been  designed  in  the  most  target-machine-independent 
manner  possible.  The  degree  to  which  this  machine-independence 
has  been  achieved  has  determined  the  ease  with  which  the 
code  generator  (Phase  2)  can  be  modular ly  replaced.  Since 
Phases  1 and  1.5  are  identical  for  both  the  360  and  AP-101 
compilers,  the  design  has  been  completely  successful. 

Phase  1 passes  information  to  Phase  1.5  and  Phase  2 
via  both  in-memory  tables  and  external  files.  The  data 
passed  via  a common  memory  area  includes  all  symbol  table 
and  cross  reference  table  information.  These  tables  contain 
complete  descriptions  of  all  user-defined  symbols  and  the  HAL/S 
statements  in  which  they  are  used.  Since  this  table  data  is 
tied  to  HAL/S  source  code  it  is  in  a machine-independent  form. 
Additional  data  passed  in  memory  includes  status  information, 
special  request  information,  error  condition  data  detected 
in  Phase  1.  and  some  literal  data  information. 
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Data  is  passed  from  Phase  1 via  two  files  on  I/O 
devices.  One  file  contains  representations  of  all  numeric 
literal  data  encountered  by  Phase  1 during  the  compilation. 
The  literal  data  is  in  an  internal,  coded  form  which 
allows  Phase  2 to  produce  object  code  literals  in  the  proper 
target  machine  format. 


The  second  I/O  file  contains  a description  of  the  compiled 
HAL/S  program  in  an  intermediate  language  form  known  as 
HALMAT.  HALMAT  is  defined  in  the  HAL/S-360  Compiler  System 
Specification.  The  HALMAT  for  a given  compilation  describes 
the  HAL/S  source  program  in  an  elemental,  operation-by- 
operation  form.  All  HAL/S  statements  are  represented  as  groups 
of  operations.  The  operations  consist  of  an  operator  (e-g* 
vector  add)  and  operands  upon  which  the  designated  operation 
is  requested.  The  operands  may  be,  for  example,  simple  data 
items  (e.g.  simply  indicating  a particular  symbol  table  entry) 
or  rLulil  of  previous  operations  (e.g.  references  to  preyrous 
HALMAT  operations  which  produced  some  intermediate  result) . 

The  principal  job  of  phase  1.5  is  to  replace  sequences  of 
HALMAT  instructions  by  a reference  to  some  previous  ^LMAT 
instruction  which  has  already  computed  the  result.  Thus,  jne^ 
interposition  of  phase  1.5  between  phases  1 and  2 has  no  effect 
on  the  data  flow  between  them.  Phase  1.5  is  a transparent  but 
distorting  window.  The  HALMAT  language  itself  describes  only 
HAL/S  constructs  and  refers  only  to  the  tables  generated  by ^ 
Phase  1.  It  therefore  is  independent  of  the 

object  code  format.  The  form  and  organization  of  the  HALMAT, 
however,  permits  an  orderly,  operation-by-operation  generation 
of  target  code  by  Phase  2. 

Data  Passed  to  the  Table  Generation  Phase 


Information  generated  in  Phase  I and  modified  by  Phase 
II  is  passed  to  Phase  3 via  both  in-memory  tables  and  an 
external  file.  Symbol  table  and  cross-reference  information, 
augmented  by  relative  address  information  from  the  code 
generator  is  passed  in  the  common  memory  area. 

The  external  file  passed  to  the  table  generator  contains 
information  concerning  the  individual  HAL  source  statements  as 
scanned  by  Phase  1 and  translated  into  object  code  in 
Phase  2.  The  file  contains  information  to  identify  and 
locate  in  the  generated  code  each  executable  source  state- 
ment with  regards  to  type,  symbolic  references,  and  modified 
variables,  Each  of  these  features  refer  to  the  source  code  ^ 
so  that  table  generation  is  independent  of  the  target  machine  s 
object  code. 


REPRODUCIBILITy  OF  TIF 
QRIGiNAL  PAGE  IS  POOii 
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2.2.6  XPL  and  The  Translator  Writing  System 

The  HAL/S  compilers  have  been  implemented  using  the 
XPL  Translator  Writing  System  (TWS) , as  the  primary  tool. 

The  TWS  is  a program  or  a set  of  programs  comprising  a 
tool  to  assist  in  the  writing  of  translator-compilers, 
interpreters,  assemblers,  etc.  Its  usefulness  is 
derived  from  its  ability  to  supply  uniform  functional 
modules  for  standard  functions  such  as  text  scanning,  and 
to  automate  the  production  of  language-dependent  portions 
of  the  compiler.  The  problem  of  correct  syntax  analysis 
is  solved  by  using  a scheme  in  which  all  parsing  of  input 
is  driven  by  automatically  generated  tables.  The  tables 
are  produced  from  an  explicit  specification  of  the  language 
granmar.  This  produces  a more  complete,  thoroughly  checked 
compiler,  and  yet  one  that  lends  itself  easily  to  modifica- 
tions and  changes. 

The  use  of  the  XPL  TWS  has  had  its  major  influence 
in  Phase  1 of  the  compiler  where  the  syntax  analysis  is 
performed.  Figure  5 illustrates  the  use  of  the  XPL  system 
in  the  generation  of  Phase  1 of  HAL/S.  The  Grammar  Analyzer 
is  an  independent  program  whose  purpose  is  to  accept  a 
description  of  a grammar,  analyze  it  for  ambiguities,  and 
produce  a set  of  parsing  tables.  The  parsing  tables  become 
a part  of  the  syntax  analysis  routines  in  the  compiler. 

Table  look-up  procedures  to  access  the  analyzer-generated 
tables  are  part  of  the  XPL  system.  Thus,  a correct  parse 
of  sentences  in  HAL/S  is  guaranteed  by  this  separation  of 
parse  rules  from  semantic  processing  rules.  The  semantic 
processing  routines  and  other  utility  functions  form  the 
remainder  of  Phase  1. 

Certain  aspects  of  the  XPL  language  have  had  a significant 
effect  on  the  HAL  compiler  and  should  be  kept  in  mind. 

XPL  procedure  parameters  are  passed  by  value;  thus  it 
is  impossible  to  return  a value  through  a parameter. 

- XPL  does  not  allow  arrays  as  procedure  parameters;  thus 
a very  large  amount  of  material  must  be  global. 

- XPL  does  no  type  checking,  a value  is  TRUE  if  its  low  order 
bit  is  1;  TRUE=1  and  FALSE=0  when  used  as  arithmetic 
quantities . 

- XPL  does  not  check  that  a call  passes  the  correct  number 
of  actual  parameters. 
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HAL/S  GRAMMAR 
SPECIFICATION 


jALR  grammar 
. analyzer; 


DIAGNOSTICS  & 
LISTINGS 


’syntax  tables 

(XPL  SOURCE 
I STATEMENTS) 


SEMANTIC  & 
UTILITY  ^ 
ROUTINES 
(XPL  SOURCE) 


XPL 

COMPILER 


LISTING 


TABLE  LOOKUP^ 
PROCEDURES 
(XPL  SOURCE) 


PHASE  1 


Figure  5. 

Using  the  XPL  TWS  to  Implement  Phase  1 
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manipulations^il^XPL'^are^  details  about  string 

of  the  HAL  compiler  xIl  understanding 

storage.  This^^a^ Jris^'IcceLS^iJf  ^ 
the  dxrect  value  of  a charan?f?  via  descriptors;  that  is, 
descriptor,  not  a st?ina  variable  is  a 

descriptor  into  A,  not  the  A=b  copies  the  B 

large  saving  in  space  makes  for  a 

byte  in  an  assignment  context  th  When  using 

thus,  ^ ont  context,  the  string  itself  is  modified, 

B = 'XYZ' ' 

A = B; 

byte  (A,  1)  = BYTE('V');’ 

both  A*'and\r®si|ifR°°Pyf|f  string  to  VYZ,  changing 
ita  arguments  - this  ®hecL 

when  the  argument  is  invalid?  strange  effects 

to  forcf essential 
Concatenating  somethLg  onto  an  existence, 

effect  unless  the  string  Js  nun  S wi?^®'^^^”^  have  this 
will  victimize  you.  ^ which  case  an  optimizer 
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2.2.7  Debugging  Aids 

directive)  card  has  EB  or  EBUG  as 
The  lilll  d?««ives  a«:  directive  is  expected. 

<?0  Interlist  HALMAT  in  the  primary  listing 

«1  Stop  processing  at  the  end  of  Phase  1 

<>2  stop  processing  at  the  end  of  Phase  2 

^3  Turn  on  Phase  1 identifier  trace 

<=4  Turn  on  Phase  1 token  trace 

<=5  Print  HALMAT  from  Phase  2 (as  reordered) 

«6  Print  intermediate  code  listing  from  Phase  2 

<=7  Print  Phase  1 symbol  table  after  next  hal  source 
statement  and  turn  off  option 

*r8  Print  Phase  1 production  trace 

^9  Print  Phase  2 diagnostic  informatioh 

<?A  In  Phase  1 ABEND  NOW 


Print  Phase  1 HALMAT  by  block.  This  will  reflect 
any  reorderxngs  performed  after  the  <:0  printing. 

Print  Phase  1 state  trace 

<=D  Turn  on  standard  Phase  1 listing 

<J=E  Print  literal  table  from  Phase  1 

<:P  Set  to  expand  symbol  table  printing 

listing?^^"^""^  printed  in  the  primary  source 

«T  J above,  «T  + tums  on  the  option, 

toggle.  ^ option,  «T  inverts  the  current  sense  of  the 
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The  <r  toggles  are  primarily  useful  in  Phase  1 because 
the  toggles  are  flipped  when  the  DEBUG  card  is  read.  In 
order  to  provide  similar  facilities  to  Phase  1.5  and  2, 
the  H(n)  option  is  available.  If  H(n)  appears  on  a DEBUG 
card,  the  number,  n,  will  be  inserted  in  the  next  HALMAT 
SMRK  instruction  issued. 

0 £ n £ 127  is  reserved  for  Phase  1.5  (see  Sec.  6.8) 
128  < n < 255  is  reserved  for  Phase  2. 


200  - off  HALMAT,  assembler  code,  stack  trace 

201  - on  HALMAT,  assembler  code,  stack  trace 

202  - off  HALMAT,  assembler  code 

203  - on  HALMAT,  assembler  code 

204  - invert  register  trace 

205  - invert  HALMAT 

206  - invert  assembler  code 

207  - invert  binary  code 

208  - invert  subscript  trace 

209  - invert  stack  trace 


When  an  option  is  selected  to  print  HALMAT,  the  format 

operator  words  — OP(N),  T,  P 
operand  words  — D(Q),  Tl,  T2 


L ' vt*- 
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3.0  COMMON  DATA  STRUCTURES 


I 

l| 

31 

I 


M 


The  phases  of  the  HAL/S  compiler  communicate  in  two 


ways;  via  the  HALMAT  file  and  via  commonly  used  data 
structures.  The  format  of  the  HALMAT  file  is  described 


in  the  HAL/S-360  Compiler  System  Specification,  Appendix 
A.  This  chapter  provides  a detailed  description  of  those 
data  structures  used  for  inter-phase  communication. 


3 . 1 Literal  Table 

The  HAL/S  Literal  Table  is  used  to  convey  literal  infor- 
mation from  Phase  1 to  subsequent  compiler  phases.  Certain 
single  valued  variables  declared  as  CONSTANT  also  use  the 
literal  table. 

There  are  three  parallel  arrays  used  to  specify  literals: 
LITl,  LIT2,  and  LIT3.  Not  all  literals  need  be  in  memory  at 
the  same  time.  An  intermediate  file  is  used  to  pass  literal 
information.  The  LITl,  LIT2,  and  LIT3  arrays  are  stored  next 
to  each  other  and  their  commulative  size  is  the  size  of  one 
I/O  block.  Thus,  one  FILE  statement  serves  to  transfer  all 
three  arrays.  The  LIT  qualifier  on  a HALMAT  operand  indicates 
that  the  operand  is  to  be  retrieved  from  the  literal  table. 

There  are  only  three  types  of  literal  entries:  1)  character, 
2)  arithmetic,  3)  bit.  Each  has  a different  format- on  the  literal 
file.  Each  type  may  undergo  transformation  during  the  code 
generation  process,  thus  eliminating  the  emission  of  unnecessary 
code  for  literal  conversions. 


Character  Literals 


Format 


LITl 

LIT2 

LIT3 


The  length  specified  is  one  less  than  the  actual  length  of  | 
the  string,  consistent  with  XPL  descriptor  notation.  The  | 
address  refers  to  an  entry  in  the  array  LIT_CHAR,  which  is  ] 
a BIT (8)  array  whose  size  is  determined  by  the  LITCHARS  j 
compiler  option.  If  over  LITCHARS  bytes  of  character  1 
literal  information  is  encountered  in  a HAL/S  program,  the  | 
compilation  is  abandoned  (LIT_CHAR  cannot  be  kept  on  an  | 
intermediate  file) . | 
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Arithmetic  Literals 


Format 


999889988! 

B 

LITl 

double  precision 

LIT2 

floating  point  # 

LIT3 

This  is  the  most  general  form  of  numeric  literal.  The  code 
generator  transforms  the  number  to  single  precision  or  integer 
as  required  by  the  context  in  which  the  literal  appears.  If 
LIT2  = "FFOOOOOO",  then  the  number  was  found  invalid  by 

Phase  1. 


Bit  Literals 


Format 


V///////7ii 


Bit  Pattern 


length 


LITl 

LIT2 

LIT3 


The  first  word  contains  up  to  32  bits  of  information,  as  required, 
to  specify  the  bit  literal.  The  length  field  specifies  the  bit 
count  as  determined  by  the  source  input.  It  is  always  a 
multiple  of  4 for  hexadecimal.  For  decimal  literals  only , the 
length  represents  the  number  of  significant  bits  in  the  literal 
value.  For  all  others,  the  length  reflects  the  nipber  of 
characters  in  the  string  specifying  the  literal,  including 

lending  zeros. 
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CURLBLK  is  the  number  of  the  page  of  the  literal  file 
currently  in  memory . 

LIT_TOP  is  the  index  of  the  last  entry  in  the  literal 
table. 

LITLIM  is  the  highest  literal  index  number  in  the  page 
currently  in  memory. 

LITMAX  is  the  number  of  pages  in  the  literal  table. 

LITORG  is  the  lowest  literal  index  number  in  the  page 
currently  in  memory. 

LIT_CHAR  FREE  is  the  number  of  character  positions  still 
available  in  LIT_CHAR. 

LIT_CHAR_AD  is  the  address  of  the  next  available  character 
in  LIT  CHAR. 


3 . 2 Symbol  Table 

The  HAL/S  symbol  table  consists  of  a large  group  of 
parallel  arrays  of  length  SYTSIZE  (can  be  set  with  JCL 
option  SYMBOLS)  plus  a small  group  of  arrays  augmenting  the 
parallel  ones,  which  describes  all  the  properties  of  declared 
variables  and  labels.  The  symbol  table  is  created  by  Phase  1 
of  the  HAL/S  compiler  and  augmented  by  Phase  2.  It  is  available 
in  the  COMMON  communication  area  for  use  by  subsequent  phases 
of  the  compiler.  The  names  of  the  arrays  and  their  associated 
bit  widths  are  listed  below.  A detailed  explanation  of  the 
contents  of  each  array  follows. 
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Created  by  Phase  1 

and  Passed  to  All 

Subsequent  Phases 

Created  by 

Phase  2 

EXT  ARRAY 

(16) 

SYT  SORT 

(16)  \ 

SYT  NAME 

CHARACTER 

SYT  BASE 

(16)  / 

SYT  ADDR 

(32) 

SYT  DISP 

(16)  } 

Used  only 

SYT  CLASS 

(8) 

SYT  PARM 

(16)  1 

in  Phase 

SYT  TYPE 

(8) 

SYT  CONST 

(32)  ) 

SYT  DIMS 

(16) 

SYT  LEVEL 

(16) 

SYT  ARRAY 

(16) 

EXTENT 

(32)  } 

Passed  to 

SYT  FLAGS 

(32) 

Phase  3 

SYT  LOCK# 

(8) 

SYT  NEST 

(8) 

SYT  SCOPE 

(8) 

SYT  LINKl 

(16) 

SYT  LINK2 

(16) 

SYT  PTR 

(16) 

SYT  XREF 

(16) 

SYT  LABEL 

literally 

SYT  LINK2 

VAR  LENGTH 

identical 

to  SYT_DIMS 

XREF 

(32) 

Created  and  Used  Only  by  Phase  1 

SYT_HASHLINK  (16) 

SYT  HASHSTART  (16) 
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EXT_ARRAY 

For  dimensioned  variables,  each  SYT_ARRAY  entry  points 
to  an  entry  in  EXT_ARRAY  which  contains  information  about  the 
entry's  arrayness.  EXT_ARRAY  contains  the  number  (n)  of  array 
dimensions  specified.  The  following  n entries  contain  the 
actual  array  sizes.  For  * size  arrays,  the  array  size  is 
specified  as  a negative  pointer  back  to  the  symbol  table  entry. 
These  entries  are  entered  starting  from  0 and  EXT_ARRAY_PTR 
points  to  the  last  entry. 

For  block  names,  EXT_ARRAY  contains  an  entry  for  each 
unique  error  referenced  in  an  ON  ERROR  or  OFF  ERROR  statement. 
The  form  of  the  entry  is: 


all  GROUP 


NUMBER 


where  NUMBER  is  "3F"  if  the  entry  is  for  the  entire  group 
and  the  entry  is  "3FFF"  if  it  is  for  all  errors.  These 
entries  are  entered  starting  from  the  end  of  the  array  and 
moving  down  towards  0.  ON_ERROR_PTR  points  to  the  last 
(i.e.  lowest)  entry.  If  the  block  is  still  being  processed, 
SYT_ARRAY  is  a negative  pointer  to  the  first  EXT_ARRAY  entry 
for  the  block.  When  the  block  is  closed,  SYT  ARRAY  becomes: 


1 1 I2  ALL 


COUNT 


where  COUNT  is  the  number  of  EXT_ARRAY  entries,  and  ALL  is  1 
if  there  was  an  entry  for  all  errors.  After  transforming 
SYT  ARRAY,  the  counted  EXT  ARRAY  entries  are  discarded. 
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EXTENT 


to  number  of  halfwords  necessary 

If  it«™  item  has  * arraynLs, 

one  cSpy!  arrayness,  EXTENT  contains  the  width  of 


NDECSY 


Points  to  the  last  entry  in  the  symbol  table  in  Phase  1, 


SYT  ADDR 


the  declared  variable.  For 

the  relativ<=  ^ f function  or  procedure,  SYT  ADDR  is 

i°°^tion  of  the  node  from  the  beginning  of  the 
mplate.  For  major  structure  template,  the  STRUC_IlZE 


SYT  ARRAY 


SYT_ARRAY  array  is  used  for  any  data  type  which  can 
If  SYT  AR^Y^is^L?n  arrays,  see  EXT  ARRAY. 

and1oL°?s^bac?  to 


For  block  names,  see  EXT  ARRAY. 
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SYT  BASE 


The  base  register  used  for  addressing  the  declared  variable. 
If  SYT_BASE  is  negative,  the  register  is  virtual  and  code  must 
be  generated  to  load  a real  register  instead. 

INITIALISE  uses  the  space  to  hold  the  size  of  the  data 
item;  for  aggregates,  the  size  of  a single  element;  for  structures, 
the  size  of  the  largest  element.  The  size  information  is  required 
for  setting  up  proper  boundary  alignments  when  assigning  storage 
addresses. 


SYT_CLASS 

The  SYTjCLASS  array  is  used  to  classify  a symbol  into 
major  categories  (cf . SYT_TYPE) . These  classifications  are 
used  to  determine  which  type  of  token  must  be  generated  by 
the  scanner  to  properly  compile  the  statement.  The  classifica- 


tions are: 


Name  Value 


VAR_GLASS  1 
LABEL_CLASS  2 
FUNC_CLASS  3 
REPL_ARG_CLASS  5 
REPL_CLASS  6 
TEMPLATE_CLASS  7 
TPL_LAB_CLASS  8 
TPL  FUNG  GLASS  9 


Glassification 

Variable  name 
Label  name 
Function  name 
Replace  argument 
Replace  macro  name 
Structure  template  variables 
Structure  template  label 
Structure  template  function 


SYT_CONST 

1)  When  addressing  aggregate  data,  the  HAL  compiler 
computes  addresses  relative  to  the  O^h  element  because 
this  generates  the  most  efficient  code.  Since  all 
HAL  subscripts  start  at  1,  the  address  of  a variable 
is  the  address  of  its  1st  element.  Thus,  the  base 
address  for  subscripting  is; 

address  (variableg)  = address  (variablCj^)  - constant. 

SYT_GONST  is  this  constant. 

For  simple  variables  and  single  copy  structures,  SYT_GONST 
is  0 . 

2)  For  update  labels,  this  indicates  the  lock  group  numbers 
involved  in  the  block. 
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1) 


The  SYT_DIMS  array  is  interpreted  as  follows  for 
each  name  type: 


BIT 


Bit  width 


CHARACTER 

MATRIX 

VECTOR 


Maximvim  character  length 


row  size 


column  size 


Vector  length 


STRUCTURE 

TEMPLATE 


There  is  not  static  information  in  SYT_DIMS 
for  the  root  node  of  a structure  template . 
When  analyzing  operations  between  two 
structures  it  is  sometimes  necessary  to 
perform  a structure  walk.  This  walk  may 
reach  a node  of  type  Q-structure.  In 
that  case,  SYT_DIMS (Q)  contains  a negative 
pointer  back  to  the  containing  structure's 
node  for  operand  1 and  SYT_LINK2 (Q) 
contains  the  equivalent  for  operand  0. 


STRUCTURE 

VARIABLE 


A node  of  type  structure  template,  which 
has  no  descendants  (i.e.  SYT  LINK1=0) 
must  be  of  type  Q-structure  for  some  Q. 
In  this  case,  SYT_DIMS  points  to  Q's 
template. 


Pointer  to  the  symbol  table  entry  for 
the  template . 


STMT_LABEL  - 0 - defined  only 

1 - unlabelled  update  block 

2 - labelled  update  block 

3 - reached  by  GO  TO 

4-7  - unreachable  by  GO  TO  (IF  labels) 

MACRO  - Number  of  parameters. 

2)  For  arrayed  character  formal  parameters,  SYT_DIMS 
is  a negative  pointer  to  the  symbol  table  entry. 
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SYT  DISP 


The  displacement  used  for  generating  base-displacement 
addresses  for  accessing  the  data  items.  For  an  aggregate 
data  item,  it  is  the  displacement  necessary  to  generate  the 
actual  address  minus  SYTjCONST,  i.e.  the  address  of  the  0^“ 
item. 


In  INITIALIZE,  0 indicates  program  data  area;  ^ 

^0  then  value  is  scope#  = csect#  of  item. 

For  structure  templates,  the  number  of  extra  bytes  required 
to  achieve  the  same  alignment  as  the  beginning  of  the  node. 


SYT_FLAGS 

SYT_FLAGS  contains  many  descriptive  flags  used  by  Phase  1 
to  determine  conflicting  declarative  attributes  for  symbols. 
The  following  list  of  flag  entries  is  used  by  the  subsequent 
compiler  phases: 


Name 

ACCESS_FLAG 

ALDENSE_FLAGS 

ALIGNED_FLAG 

AKRAY_FLAG 

ASSIGN_FLAG 

ASSIGN_OR_NAME 

ASSIGN_PARM 

AUTO_FLAG 

AUTSTAT_FLAGS 

CONSTANT_FLAG 

DEFAULT_ATTR 

DEFINED_BLOCK 

DEFINED_LABEL 

DENSE_FLAG 

DOUBLE_FLAG 
DUMMY  FLAG 


DUPL_FLAG 

ENDSCOPE_FLAG 

EVIL_FLAGS 

EXCLUSIVE  FLAG 


Value 

"00010000” 

"OOOOOOOC" 

"00000008" 

"00002000" 

"00000020" 

"10000020" 

"00000020" 

"00000100" 

"00000300" 

"00001000" 

"00800208" 

"10100000" 

"00000060" 

"00000004" 

"00400000" 

"01000000" 


"04000000" 

"00004000" 

"00200000" 

"00080000" 


Attribute  Tested  by  the  Flag 

ACCESS  protected 
ALIGNED_FLAG  or  DENSE_FLAG 
Item  is  declared  ALIGNED 
Item  is  an  array 
Entry  is  a formal  parameter 
requiring  an  assign  parameter 
NAME_FLAG  or  ASSIGN_FLAG 
Same  as  ASSIGN_FLAG 
Entry  requires  automatic  initiali- 
zation 

AUT0_FLAG  or  STATIC_FLAG 
Entry  has  the  CONSTANT  attribute 
Attributes  for  implicit  declara- 
tions 

NAME_FLAG  or  EXTERNAL_FLAG 
Label  reference  is  resolvable 
Entry  is  subject  to  dense  alloca- 
tion rules 

Use  double  precision 
Formal  parameter  of  a procedure 
or  function  which  had  no  declara- 
tion 

Duplicate  name  in  structure 
template 

Indicates  end  of  COMPOOL  list 
Structure  template  not  properly 
completed 

Procedure  or  function  is  to  have 
exclusive  usage 
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Name 


Value 


Attribute  Tested  by  the  Flag 


EXTERNAL_PLAG 

"00100000" 

IGNORE  PLAG 
IMP  DECL 
IMPL_T_FLAG 

"01000000" 

"00000010" 

"00040000" 

INIT  CONST 
INIT  FLAG 
INP  OR  CONST 
INPUT_PARM 

"00001800" 

"00000800" 

"00001400" 

"00800208" 

LATCH_FLAG 

"00020000" 

LATCHED  FLAG 
L0CK_BITS 

"00000001" 

LOCK  FLAG 
MISC_NAME_FLAG 

"40000000" 

NAME  FLAG 
NONHALJFLAG 

"10000000" 

"02000000" 

PARM  FLAGS 
PM_FLAGS 

"00000420" 

"00C20080" 

POINTER_FLAG 

"80000000" 

POINTER_OR_NAME 

"90000000" 

READ  ACCESS  FLAG 
REENTRANT  FLAG 
REMOTE  FLAG 
RIGID  FLAG 
SD  FLAGS 
SINGLE  FLAG 
SM_FLAGS 

"20000000" 

"00000002" 

"00000080" 

"04000000" 

"OOCOOOOO" 

"00800000" 

"10C2008C" 

STATIC  FLAG 
TEMPORARY  FLAG 

"00000200" 

"08000000" 

SYT_HAS  BLINK 


See  SYT^HASHSTART 
SYT  HASHSTART 


Block  name  is  not  part  of  the 
compilation  unit 
Routine  INITIALISE  ignores  this 
Symbol  implicitly  declared 
Is  used  with  a transpose  opera- 
tion 

CONST_PLAG  or  INIT_PLAG 
iINITjCONST 

INPUT_PARM  or-  CONSTANT_PLAG 
Variable  is  a formal  parameter 
of  input  type 

Event  variable  entry  has  the 
LATCHED  attribute 
See  LATCH_PLAG. 

Entry  is  a member  of  a lock  group 
indicated  by  SYT__LOCK# 

See  LOCK_BITS 

The  structure  contains  a name 
variable  somewhere  in  it 
Entry  has  the  NAME  attribute 
Procedure  or  function  uses  non-HAL 
linkage  conventions 
Entry  is  a parameter 
Plags  which  must  match  .for  assign 
by  reference 

Entry  is  a formal  parameter  passed 
by  reference 

Entry  is  a formal  parameter  or  has 
the  NAME  attribute 
Read  only 

Procedure  or  function  is  REENTRANT 
Entry  has  the  REMOTE  attribute 
Entry  has  RIGID  atribute 
SINGLE_PLAG  or  DOUBLE_PLAG 
Use  single  precision 
Plags  which  must  match  on  structure 
terminals 

Item  is  declared  STATIC 
Entry  is  a DO  group  temporary. 


The  symbol  table  is  accessed  via  a hash  function. 

SYT_HASHSTART  is  an  independent  array  whose  elements  point 
to  the  first  entry  in  the  symbol  table  with  a particular 
hash  code.  Entries  with  the  same  hash  code  are  linked  using 
SYT_HASHLINK  which  is  one  of  the  parallel -SYT  arrays  . • 
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HO  Jl<Jii0ii 

SYT_LABEL ; literally  'SYT  LINK2' 


A statement  number  generated  by  Phase  2 for  every  entry 
in  the  symbol  table  of  label  class  (cf . GETSTATNO) 


SYT  LEVEL 


1) 


A pointer  to  the  symbol  table  entry  for  another 
variable  in  the  same  block.  SYT  LEVEL  provides  a 
li^^ked  list  of  all  the  variables  declared  in  a 
block.  The  entry  for  the  block's  name  is  the 
beginning  of  the  list.  This  entry  is  pointed  to 
by  PROC_LINK  (scope#  (block)). 


2) 


Used  to  form  a linked  list  of  all  structure 
template  names.  STRUCT_START  points  to  the  list's 
beginning. 


3) 


For  formal  parameters  with  * arrayness  or  character 
size,  SYT_LEVEL  indicates  the  presence  of  zero,  one, 
of  both  of  these  features  by  value  of  0,  1,  2, 
respectively.  This  is  the  number  of  words  of  storage 
necessary  to  pass  the  information. 


4)  INITIALISE  saves  NDECSY  of  the  node  here  for  later 
use  by  ALLOCATE_TEMPLATE  before  use  2) . 


SYT  LINKl 


1)  For  structure  templates:  See  SYT  LINK2. 


2)  Used  to  form  a linked  list  of  all  procedures  and 

functions  using  non-HAL  linkage  conventions.  XPROGLINK 
points  to  the  beginning  of  this  list. 


3)  Used  to  form  a chain  of  all  tasks.  SYT  LINKl  of  the 
main  program  points  to  the  beginning  of“this  list. 

4)  If  the  entry  is  the  label  of  an  exclusive  block, 
it  is  a number  identifying  the  block. 

5)  Used  to  form  a chain  of  all  REMOTE  variables.  FIRSTREMOTE 
points  to  the  beginning  of  this  chain. 


6)  Used  to  form  a linked  list  of  all  external  labels. 
ENTRYPOINT  points  to  the  beginning  of  this  list. 
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1.1 


7)  For  REPLACE  names  points  to  beginning  of  <text> 
in  MACRO_TEXT. 

8)  Used  to  form  a list  of  TEMPORARY  variables. 

9)  For  labels  in  phase  1,  -DO_LEVEL  at  the  point  of 
declaration  of  the  label. 


SYT_LINK2 

Labels 

Phase  1 uses  this  entry  to  back  chain  label  definitions. 
The  beginning  of  the  list  (i.e,  the  last  label)  is  in 
SYT_LINK2 (0) . Phase  2 uses  the  name  SYTJLABEL  (see  that  entry 
for  definition). 

Structure  Templates 


The  symbol  table  format  for  a 
^ linked  list  to  define  orderinq 
SYT_LINK1  and  SYT  LINK2. 


structure  template  consists 
/ using  the  companion  arrays 


A structure  walk  begins  with  a major  structure  pointing 
to  a template  name  via  SYT_DIMS,  as  described  earlier.  The 
performed  properly,  will  begin  and  end  at  the 
f reference  point.  The  following  general  rules 
apply  to  structure  walks ; 


1)  SYT_LINK2  generally  points  to  the  next  terminal 
symbol  or  node  point  at  the  same  level  number 
as^  the  current  symbol  (i.e.  its  right  brother); 

is  usually  zero  for  the  structure  name 
entry,  however  see  SYT_DIMS  for  structure  templates. 

2)  If  SYT  LINKl  of  an  entry  is  non-zero,  the  entry  is 

a node  (i.e.  not  a terminal)  and  SYT  LINKl  points  to 
Its  first  descendant. 

3)  If  SYT_LINK2  of  an  entry  is  negative,  it  indicates 

the  last  Item  in  a minor  node,  and  the  absolute  value 
of  SYT_LINK2  refers  to  the  minor  node  point  (i.e.  its 
father) ; the  structure  walk  proceeds  from  SYT  LINK2 
of  the  minor  node.  ~ 
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Example ; 


l- 


^ SYT  # 


STRUCTURE  A;  1 

IB,  2 

2 C,  3 

2 D,  4 

IE,  5 

2 F,  6 

3 G,  7 

3 H,  8 

2 J;  9 


SYT  LINKl 


2 
3 
0 
0 
6 
7 
0 
0 
0 . 


SYT  LINK2 


5 

4 

-2 

-1 

9 

8 

-6 

-5 


SYT_LOCK  # 

If  SYT_FLAGS  indicates  that  the  variable  is  a member  of 
^ lock  group,  SYT_LOCK#  indicates  the  lock  group  numbet. 

For  templates  of  external  units  (e.g.  compools,  comsubs, 
etc.)  SYT_LOCK#  is  the  version  number  of  the  template. 

For  the  root  node  of  a structure  template  SYT_LOCK#=*'80" . 
SYT_NAME 

The  actual  name  of  the  variable. 


SYT  NEST 


SYT_NEST  indicates  the  nest  level  at  which  a variable 
or  label  is  defined.  It  is  useful  for  determining  proper 
name  scoping. 


SYT  FARM 


1)  If  the  entry  is  a formal  parameter,  this 
is  the  register  in  which  it  will  be  passed. 

If  there  are  insufficient  register  SYT  FARM  is 
negative.  ~ 

i 2)  If  the  entry  is  a task,  this  is  a number 

identifying  the  task. 

3)  If  the  entry  is  a function,  0 indicates  the  function 
; requires  an  area  for  returning  a result;  -1  indicates 

1^%.  that  the  result  will  be  returned  in  a register. 
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For  block  names,  SYT_PTR  points  to  the  first  declared 
symbol  in  the  block.  If  the  block  has  arguments,  SYT  PTR 
is  guarantee  to  point  to  the  first  argument  in  the  li?t. 

For  unqualified  structures,  SYT  PTR  of  the  template  name 
refers  to  the  corresponding  major  structure  name. 

For  REPLACE  names,  the  MACRO_INDEX  . 

For  CONSTANTS,  a negative  pointer  to  the  literal  table. ' 
statement^^^^^^^  SYT_PTR  links  together  all  labels  for  the  same 

SYT  SCOPE 


SYT_SCOPE  uniquely  identifies  the  block  in  which  a 
variable  or  label  appears.  A number  is  assigned  to  each  block 
as  it  is  defined. 


SYT_SIZE 

The  size  of  the  symbol  table  as  determined  from  the 
JCL  SYMBOLS  option. 


SYT_SQRT 

the  the  synibol  table  entries, 

[ scope  # [symbol  table  pointer  j 

16 


An  entry  has 


SYT  TYPE 


■ The  SYT_TYPE  array  gives  a more  detailed  description  of 

SYT  CLAS?^'  Thf  in  the  context  of  the  associated 

SYT  CLASS.  The _ following  is  a list  of  the  allowable  types 
and  their  associated  reference  number: 


Name^/Name2 

Phase  1 
Value 

Phase  2 
Value 

Description 

BIT  TYPE/BITS 
CHAR  TYPE/CHAR 
MAT  TYPE/MATRIX 
VEC  TYPE/VECTOR 
SCALAR  TYPE/SCALAR 
INT  type/integer 
BORC  TYPE 

1 

2 

3 

4 

5 

6 
7 

1 or  9 

3 or  11 

4 or  12 

5 or  13 

6 or  14 

Bit  string 

Character  string 

Matrix  data 

Vector  data 

Scalar  data 

Integer  data 

Bit  or  Character  string 

— — W*.  J.  U.HW 

which  allow  more  than  one 
type  of  argument 
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Name  /Name  2 

Phase  1 
Value 

Phase  2 
Value 

Description 

IORS_rYPE 

8 

Integer  or  Scalar  data 
(see  BORG) 

Event  Type/EVENT 

9 

17 

Event  variable 

MAJ_STRUC/STRUCTURE 

10 

16 

Major  structure  or  struc 
ture  node 

ANY_TYPE 

11 

A number  greater  than 
all  real  data  types 

TEMPI,  NAME 

62 

Structure  template  name 

ANY_LABEL 

64 

Not  an  actual  type,  but 
used  to  distinguish 
labels  from  other 
types 

STMT  LABEL 

66 

Statement  label 

UNSPEC_LABEL 

67 

Used  by  Phase  1 to 

classify  labels  until 
enough  information 
is  available  to  sub- 
classify them 

IND_CALL_LABEL 

69 

See  description  of 
procedure  labels 
below 

PROC_LABEL 

71 

See  description  of 
procedure  labels 
below 

TASK  LABEL 

72 

Task  label 

PROG  LABEL 

73 

Program  label 

GOMPOOL  LABEL 

74 

Gompool  label 

EQUATE  LABEL 

75 

Name  is  an  external  name 
defined  by  an  EQUATE 
declaration 

PROCEDURE  LABELS  create  a difficulty  unlike  any  other 
HAL/S  name.  If  a procedure  is  declared  in  a given  scope 
and  called  in  the  same  scope,  there  is  no  complication;  however, 
the  declaration  may  appear  after  the  call.  Thus,  if  a procedure 
is  declared  in  an  outer  scope,  at  the  point  of  call  it  is  not 
yet  known  whether  the  outer  scope  declaration  is  the  correct  one. 
To  handle  this  problem,  a new  symbol  table  entry  is  made  for 
the  procedure  at  the  point  of  call  with  SYT_TYPE  = IND_CALL_LABEL 
and  SYT_PTR  pointing  to  the  previous  entry  for  the  name.  If 
a new  definition  for  the  name  is  encountered,  the  chain  is 
traced  back  to  the  proper  NEST  level  and  pointed  at  the  new 
declaration  by  procedure  SET_LABEL_TYPE . The  label  on  a procedure 
is  therefore  of  type  PROC_LABEL  and  all  and  only  those  calls  which 
definitely  call  a specific  declaration  point  directly  to  that 
entry. 
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T 


Phase  2 uses  SYT_TYPE  to  distinguish  between  single  and 
double  precision  by  ORing  in  a bit  in  the  "8”  position * This 
requires  renumbering  EVENT  and  STRUCTURE  to  values  that  do  not 
conflict  with  the  double  precision  convention.  The  complete 
set  of  phase  2 .names  can  be  found  in  Section  3,3.8  ("operand 
types  and  properties”) . 


SYT_XREF 

References  to  variables  are  accumulated  in  array  XREF . 
An  XREF  entry  is  in  the  form: 


Where  pointer  points  to  the  next  entry  for  the  same  variable; 
flag  indicates  a declaration,  assignment,  reference,  or 
subscript  usage;  statement  number  is  the  statement  number  of 
the  usage. 

The  list  is  maintained  in  the  order  of  occurrence  so 
references  later  on  the  list  are  at  higher  statement  numbers. 
Multiple  references  to  the  same  variable  in  the  same  statement 
may  set  more  than  one  bit  in  the  flag  but  do  not  generate 
multiple  entries  in  the  list. 

SYT  XREF  for  a variable  points  to  the  beginning  of  the 
list.  SYT_XREF  (SYTSIZE)  is  the  STMT_NUM  of  the  line  opening 
the  block. 

XREF  LIM  is  the  size  of  XREF  table  as  determined  by  JCL 
parameter“XREFSIZE.  / 

XREF  FULL  is  set  when  the  XREF  table  overflows  so  that 
the  overflow  error  message  will  be  issued  only once. 

XREF__INDEX  points  to  the  last  entry  in  XREF . 

XREF  ASSIGN  is  a mask  for  an  assignment  usage. 


XREF  REF  is  a mask  for  a reference  usage. 


XREF_SUBSCR  is  a mask  for  a subscript  usage. 

XREF_MASK  is  a mask  for  the  statement  number  section. 

\ 
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SYTSIZE 


Same  as  SYT  SIZE. 


VAR  LENGTH 


XREF 


Identical  to  SYT  DIMS. 


See  SYT  XREF. 


3.3  The  COMMunication  and  VALS  Arrays 

The  array  COMM  is  reserved  for  inter-phase  communcation . 
Most  of  the  COMM  array  is  unused.  The  defined  portion  is: 


COMM 

0 


LIT_CHAR_ADDR 

LIT_CHAR_LEFT 

LIT_TOP 

STMT_NUM 

FL_NO_MAX 

MAX_SCOPE# 

TOGGLE 

OPTION_BITS 

SYTjyiAX 

OBJECT_MACHINE 
OB JECT_INS  TRUCTIONS 
WALKBACK  LOOPS 
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COMM (7)  = OPTION_BITS 


Hex 

JCL  parm  field  name 

PI 

P2 

P3 

00000001 

DUMP 

„ 360/PC... 

00000002 

LISTING2 

/ 

00000004 

LIST 

/ / 

00000008 

TRACE 

/ / 

/ 

OOOOOOIO 

XO 

NO  TEMP 

/ 

00000020 

XI 

NO  CSE 

00000040 

X2 

NO  VM 

// 

00000080 

X3 

CSE  WATCH 

00000100 

X4 

360-0  TIMES 

• 

/ / 

PC  - P8  COMP 

. — 

00000200 

X5 

CSE  TRACE 

00000400 

, ZCON 

/ 

00000800 

TABLES 

/ 

/ / 

00001000 

TABDMP 

/ 

00002000 

X9 

00004000  XA  / / 

PC  - ABSLIST 


00008000 

TABLST 

/ 

00010000 

PARSE  / 

00020000 

LSTALL 

/ 

/ 

00040000 

PCDATA 

/ 

00080000 

SRN  / 

/ 

/ 

00100000 

ADDRS  / 

/ 

/ 

00200000 

LPXI 

/ 

00400000 

DECK 

/ 

/ 

00800000 

SDL  / 

/ 

/ 

01000000 

X6  Print  Phase  1.5  statistics 

02000000 

SCAL 

/ 

04000000 

MICROCODE 

/ 

08000000 

XB 

/ 

10000000 

XC 

/ 

20000000 

XD 

40000000 

XE 

80000000 

XF 

PI.  5 


/ 

/ 


/ 
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VALS 

VALS  is  a collection  of  parameters  for  the  compiler. 
The  address  of  VALS  is  in  the  4th  word  of  the  sub-monitor's 
communication  area;  therefore,  VALS  must  be  initialized  by; 

TMP=  MONITOR (13) 

COREWORD (ADDR (VALS ) ) = COREWORD (TMP+16 ) 

The  VALS  array  contains; 

0 title 

1 linect 

2 payls 

3 symbols 

4 macrosize 

5 litstrings 

6 compunit 

7 xrefsize 

8 cardtype 

9 labelsize 

10  data  sector 
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4.0  PHASE  I 

Phase  I of  the  HAL/S  compilers  is  a classical  syntax 
directed  compiler  whose  input  is  HAL/S  source  code  and  output 
IS  the  intermediate  Code  HALMAT.  The  description  of  such  a 
compiler  is  naturally  broken  Up  into; 

4 . 1 The  Parser 

4.2  The  Scanner 

4.3  The  Output  Writer 

4.4  The  Semantic  Routines 


In  general,  the  data  is  described  in  the  subsections;  however, 
some  items  are  used  in  many  places  so  Section  4.5  defines  all 
the  global  names  used  in  Phase  I. 
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4,1  The  -Parser 


Phase  1 is  a classical  syntax  directed  compiler.  Thus, 
the  parser  has  the  responsibility  of  overall  logical  control,' 

It  calls  the  scanner  (Section  4.2)  to  input  tokens,  the  output 
writer  (Section  4.3)  to  print  the  listing,  and  the  semantic 
routine  4.4)  to  generate  code.  In  this  compiler,  the 

parser  is  LARL(l),  the  parse  routine  is  COMPILATION  LOOP  and 
like  most  bottom  up  parsers,  the  semantic  routine  is  called  just 
before  reducing  the  stack.  The  code  generated  is  HALMAT,  an 
intermediate  code  which  is  translated  to  machine  code  by  Phase 


4.1.1  Global  Variables  Used  by  the  Parser 

#PRODUCE_NAME (production  number) 

The  left  side  of  the  production. 

Enter  APPLYl  by  current  state  and 
search  for  match  with  state  before 
stacking  production.  If  match  found, 
APPLY2(I)  is  the  new  state. 

See  APPLYl . 

See  SCAN. 

See  global  definitions  — TOKEN. 

See  SCAN. 

Stack  of  FIXINGS,  indexed  by  SP. 

See  SCAN. 

Stack  of  SYT_INDEXs,  indexed  by  SP. 
Stack  of  VALUES,  indexed  by  SP. 

See  SCAN. 
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APPLYl (I) 

APPLY 2 
BCD 

CHARACTER_STRING 

CONTEXT 

FIXF 

FIXING 

FIXL 

FlXV 

IMPLIED  TYPE 


“f*:*  ^*r?i  -- «,  • '■r*  .?=• 


srHsUi 


INDEXl (state) 


INDEX2 (state) 


LOOK 


LOOK  STACK 


LOOKl ( I ) 


LOOK2 


MAXL# 

MAXP# 


MAXR# 


Points  to  the  beginning  of  the  entries 
for  state  in  READl,  APPLYl,  and  LOOKl.  It 
is  the  new  STATE  for  null  productions. 

Points  to  the  end  of  state's  entries  in 
READl.  When  doing  reduction,  the  number 
of  items  in  the  production's  right  side. 

Holds  the  old  state  when  a new  state  is 
computed  by  a look  ahead. 

Is  where  LOOKS  are  stacked  — indexed 
by  SP. 

Enter  by  state,  search  for  match  with 
look  ahead  token.  If  match  found, 

L00K2(I)  is  the  new  state. 

See  LOOKl. 

See  STATE. 

See  STATE. 

See  STATE. 


See  SP , 


MPPl 


See  SP. 


NO_LOOK_AHEAD_DONE  Is  true  if  the  parser  has  not  buffered 

one  token  ahead  by  doing  a look  ahead. 


PARSE  STACK 


READl 


READ  2 


Stack  of  grammatical  items,  terminal 
or  non-terminal  — indexed  by  SP. 

An  array  of  tokens,  indexed  by  INDEXl 
and  INDEX2.  READl  is  entered  by  STATE 
and  searched  for  TOKEN ; when  a match 
is  found,  the  associated  READ2  entry 
is  the  new  STATE.  If  no  match  is  found, 
there  is  a syntax  error. 

See  READl. 


INTERMETRICS  INGGRPORATED  • 701  CGNCGRD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


REDUCTIONS 

REPLACE_TEXT 

RESERVEDJWORD 

SEMI_COLON 

SP 


STATE 


Total  number  of  reductions  made  by 
parser. 

See  global  definitions  — TOKEN. 

See  SCAN. 

See  global  definitions  — TOKEN. 

Is  the  stack  pointer  for  the  top  of  the 
parser's  stacks;  MP  is  set  to  the  index 
of  the  left-most  symbol  of  a production 
when  doing  a reduction;  MPPl  e MP+1. 

After  a reduction,  naturally  SP  is  set  to 
MP. 

An  integer  used  to  encode  the  current 
state  of  the  parser.  This  is  used  to 
index  into  the  rest  of  the  parser  tables . 

If  0 < STATE  £ MAXR#,  it  is  a read  state. 

If  MAXR#  < STATE  < MAXL# , it  is  a lookahead 
state. 

If  MAXL#  < STATE  < MAXP# , it  is  a read  a null 
state. 


If  MAXP#  < STATE,  it  is  a reduce  state. 

STATE_NAME (state)  Is  the  token  associated  with  this  state. 

STATE_STACK  Is  the  controlling  stack  of  the  parser. 

This  is  where  STATES  are  stacked  — indexed 
by  SP. 


STMT_END_FLAG 
STMT_PTR 
SUBSCRIPT  LEVEL 


See  global  definitions  — GRAMMAR_FLAGS . 

See  global  definitions  — GRAMMAR_FLAGS . 

Incremented  for  each  $,  decremented  at 
the  end  of  the  subscript. 


SYT_INDEX  See  SCAN. 
TEMPORARY_IMPLIED  See  SCAN. 
VALUE  See  SCAN. 
VAR 


This  is  Where  BCDs  are  stacked  ■ — indexed 
by  S . . 
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4.1.2  Procedures  of  the  Parser 


COMP ILATION_LOOP 
ADD  TO  STACK 


1542300 

1543400 


COMPILATION_LOOP  is  the  main  program  of  the  parser. 


Depending 


At  any  given  moment,  the  parser  is  in  some  state. 

<?tate  the  parser  will  either: 

sss  := 

that  syntactic  errors  are  discovered. 

- Bis  S 

top  of  STATE_STACK  and  the  current  state. 

^ Look  ahead  one  symbol  and  change  state  depending  on 
SS  curHEt  state  and  the  next  symbol. 

4.  ^ a null  token,  push  the  state  stack  and  change 

state. 

. 1 0 arts  the  real  heart  of  the  parser, 

3 andTei^blffclL^boLS^  Pigure  4.1 

is  an  example  of  the  parser  at  work. 
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scanner:  <iAI3xL>  = ”SIM£LE" 
scanner; 

reduction  numler  3C4  ~“ 

scanner;  "PRCGE&M” 

reduction  numher  3C5 
reduction  nucter  3C7  — 

scanner: 

reduction  uumter  301 
reduction  number  298  -- 


source  line  was:  SIKPIE: 

source  line  was:  PEC6RAM; 


scanner:  "CECIARE'' 
scanner:  <IBEKTIPISE>  = "A" 
scanner: 

reduction  number  358 
reduction  number  356 
reduction  number  342 
reduction  number  340 
reduction  number  339 


source  line  was: 


EECLASE  A; 


reduction 

reduction 

scanner:  <AEITH  ID>  = "A" 

reduction 

reduction 

scanner:  "=»• 

reduction 

reduction 

reduction 

scanner:  <ARI1H  1D>  = "A" 

reduction 

reduction 

scanner: 

reduction 

reduction 

reduction 

reduction 

reduction 


number 

number 

number 

number 

number 

number 

■number 

number 

number 

number 

number 

number 

number 

number 


Figure  4.1  Example  cf  Parser 


<1ABEL  DEFI}IIXIOH> 


<LASEL> 


<LABE1  £XTEERAL>  ::=  <LABZL  DE?INITION> 

<BL0CK  SIET  HEAD>  ::=  <LAB£L  SXTIESAL>  EECGEAE 

<BiOCK  SIO  20P>  ::=  <BLOCK  STKT  BEAO 
<B1CCK  STKT>  ::=  <ELOCK  STMT  TOP>  ; 


<NAME  1D>  ::=  <IDESTIFIEE> 

<DECLABAIION>  .::=  <NAME  ID> 

<DEC1ARATI0N  LISX>  ::=  <DECLABAT1CN> 

XDECXABS  B0DY>  ::=  <DECI.ARAfICN  LISX> 

<CECLAEE  SXAXEHENI>  DECLARE  <DEC1ABE  B0DY> 


<CECLARE  ELSMENT>  ::=  <DECLARE  STATEHENT> 
<EECLA£E  GROUP>  : :=  <DECLARE  ELEMENT> 

<B10CK  B0DY>  ::=  <E£CLAEE  GR00E> 

<PEEFIX>  ::= 

<SUBSCEIPX>  :;= 

<AEIXH  VAR>  ;:=  <PBEFIX>  <AEIIH  ID>  <SUBSCRIPT> 
<VARIABLE>  ::=  <ABIXH  VAE> 

<=1>  ::=  = 

<PBSFIX>  ::=  • 

<SDBSCEIPX>  :.:  = 

<ABIXK  VAE>  ;:=  <PRE'FIX>  <ARIXH  ID>  <SUBSCEIPX> 
<PBIBAEY>  ::=  <AB1IH  VAR> 

<FACI0H>  <PRIMAEY> 

<FEODUCI>  ::=  <FACTOB> 


Scanner  Action 
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reduction  nuater 
reduction  nuEter 
scanner:  <SIMfLE  K0HaEE>  = «1" 

reduction  numter 
reducticn  nuaLer 


scanner: 


reduction  nucter 
reduction  uuniier 
reduction  nuoter 
reduction  nurter 
reduction  nuater 
reducticn  nuaier 
reduction  nucrer 
reduction  nuoier 
reducticn  nuater 


S 

n 

424 

19 

31 

15 

11 

9 

7 

iei 

136 

41 

36 


<T£KK>  ::=  <PS0DUC1> 

<ATITH  EXP>  ; :=  <TEBM> 

<NUK3EH>  ::=  <SiaPLE  NUMBEE> 

<E£E  PoIMA.BY>  ::=  <tiUMBEfi> 

<F5IflilEY>  ::=  <PSE  P3IKAaY> 

<rACT0a>  ::=  <?RIHARy> 

<?E0DUCI>  :;=  <FACI0£> 

<IEKH>  ::=  <PRODUCT> 

<A£ITH  SXP>  ::=  <AP.ITH  £XP>  + <TEfiM> 
<EXPB3SSI0N>  ::=  <A£IIh  EXP> 

<=1>  <EXPHESSION> 

<BASIC  bIAi.tdtNT>  ::=  <ASSIGNKENT> 

<SIATEHSSI>  <BASIC  STATE«ENT> 


source  line  was: 


A = A ♦ 1; 


00 


scanner:  "CICSE" 
scanner:  <LABEL> 

scanner: 


reduction  nunter  38  — 

reduction  nuitter  292  — 

"SlilPlE” 

reduction  nuotec  427  ~ 
reduction  nurter  289  — 


source  line  was:  CLQSS  SIKPIE; 


<A^Y  S‘rAISiiENI>  <STATEHEJ1I> 

<Bi0CK  BC0Y>  <£L0CK  30DY>  <ANY  STATEMEHT> 

<CL0SING>  CLOSE  <LABEL> . 

<BI0CX  DEFiNITION>  ::=  <BL0CK  SI«T>  <BLOCK  B0DY>  <CL0SING> 


OW 

§ o 

pi 

tel  ’ 


H- ( 

CO 

O 

ns  hrt 

o 

O H 

3d  td 


scanner:  "_l_" 


MCIES: 


reducticn  nunter  2 
reduction  nueher  1 


<CCMPI1S  LIST>  ::=  <BLOCK  DEFISIITICN> 
<COa?IlAIION>  ::=  <C0HPILE  LIST>  | 


erite^thes!  o^tyiiz  writer  would 


I 

I 

i 


RECOVER  — 1534500 
STACK_DUMP  — 1087300 
SAVE_DUMP  — 280600 


Called  by  COMPILATION  LOOP 

Si:;-  BH:; 


when  a syntactic 
away  enough  of  the 
enable  the  parser 


DUMP  STACK 

SAVP_STACK_o„„P^  ■ 

Advance  the  input  stream  to  a semicolon  or  j 
Reset  principle  global  flags  to  default  status. 

indica?L.^ihars?A?f  =«SCK  TOKEN 

and  then  pick  up  in  COMPILATION_LOOP . 


current^JtacklSp  whether  the 

compatible  wlt^?ie  nexf^okLrNTOKEN  «“°K,  is 

compatible  or  a new  STATE  n™ber“ifotay.“ 

part  oJ'indSp?  « £he  appropriate 

state!”’'  ^ reduction  and  try  the  reduced 


For  a look  ahead  state,  searc 
and  if  found,  do  the  reduction  and 


for  a look  ahead  match 
continue  checking. 


Intermetrics  incorporated  • ?oi  concord 
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EMIT_EXTERNAL  — 764600 
EXJWRITE  — 765300 

EMIT_EXTERNAL  is  called  by  COMPILATION_LOOP  to  format 
up  templates  and  output  them  via  EXJWRITE. 

At  any  given  moment  it  is  in  one  of  five  states 
determined  by  EXTERNALIZE.  EXTERNALIZE  is  set  by  SYNTHESIZE 
which  also  calls  EMIT__EXTERNAL  to  change  its  state. 

0 - Not  doing  anything. 

1 - Format  templates  — be  careful  to  handle  macro 

texts  properly  (see  MACRO_TEXT  in  SCAN) , 

2 - Clean  up  and  set  EXTERNAL” IE  to  zero. 

3 - Initialize  and  set  EXTERNALIZE  to  one. 

4 - Temporarily  not  doing  anyting. 
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4 . 2 The  Scanner 


The  scanner  provides  the  input  interface  between  the 
compiler  and  the  world.  The  rest  of  the  compiler  deals  with 
tokens  and  strings  assembled  by  the  scanner.  The  rest  of 
the  compiler  deals  with  1-dimensional  format  regardless  of 
the  input.  The  rest  of  the  compiler  deals  with  a single 
input  stream  regardless  of  include  statements  and  macro 
expansions. 

The  scanner  is  divided  into  two  parts.  STREAM  gets 
the  next  character  and  SCAN  assembles  characters  into  tokens. 
Since  symbol  table  information  is  necessary  to  determine  the 
token  type,  SCAN  contains  the  symbol  table  routine  — IDENTIFY. 
Since  some  character  strings  are  not  delivered  to  the  parser, 
they  must  be  delivered  directly  to  the  output  writer;  thus, 

SCAN  contains  the  routines  for  saving  tokens.  Since  compiler 
directives  and  access  rights  are  not  part  of  the  grammar, 

SCAN  contains  routines  for  handling  these  concepts. 


4-11 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


r 


S''4'  T-'!.-iiO^''^^r:-tk«r!,'?«':.'. 


4.2.1  SCAN 

SCAN  receives  characters  from  STREAM  and  returns 
tokens  to  the  parser.  All  symbol  table  searches  are  made 
here,  macro  expansions  are  processed  here,  a considerable 
amount  of  macro  definition  work  is  done  here.  The 
principle  interfaces  to  the  parser  are  TOKEN  which  is 
set  to  the  internal  code  for  the  syntactic  item  read  and 
SYT_INDEX  which  transmits  additional  information  for  semantic 
processing. 

Notice  that  each  call  to  SCAN  returns  a token;  conse- 
quently, macro  expansions  must  be  done  on  the  fly. 
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4 . 2 . 1 . 1 Local  Variables  of  SCAN. 


CHAR  ALREADY  SCANNED  Contains  character  which  SCAN  read 

— “ after  a "/"  during  look-ahead  for 

comments;  =0  if  empty. 

CHAR  NEEDED  Switch  off  when  a character  has  been 

obtained  from  STREAM  and  has  not 
yet  been  used. 

DEC  POINT  Switch  ON  if  decimal  point  has  already 

“ been  found  in  current  numeric  token. 


DONT_ENTER 

ESCAPE_LEVEL 

EXP_BEGIN 

EXP_DIGITS 

EXP_SIGN 

FLAG 

I 

INTERNAL_BCD 

L 

OVERPUNCH_ALREADY_SCANNED 
SEARCH  NEEDED 


SIG  DIGITS 


Count  of  escape  characters  prefixed 
to  NEXT_CHAR. 

Index  in  INTERNAL_BCD  of  first 
character  of  exponent  in  current 
numeric  token . 

Length  of  exponent  in  characters. 

Sign  (+  or  -)  of  exponent  of  current 
numeric  token. 

In  IDENTIFY,  used  to  accumulate  flags 
for  SYT_FLAGS . 

In  IDENTIFY,  the  symbol  table  index 
of  the  identifier. 

Copy  of  BCD  used  within  SCAN. 

In  IDENTIFY,  the  length  of  the  identifier. 

See  CHAR_ALREADY_SCANNED . 

SCAN  attempts  to  position  the  input 
after  all  embedded  comments  before 
returning  a token.  If  it  is  not 
successful,  then  SEARCH_NEEDED  is  set 
so  that  it  will  search  for  comments 
the  next  time  it  is  entered. 

Number  of  significatn  digits  in  current 
numeric  token. 
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4 . 2 . 1 . 2 Global  Variables  Referenced  by  SCAN. 

ADDR_FIXED_LIMIT  Address  of  a location  containing, 

in  floating  format,  the  largest  numeric 
literal  allowed  by  HAL/S.  See  DW. 

ADDR_FIXER  Address  of  a location  containing  an 

increment  to  be  used  while  checking  a 
literal  against  fixed  limits.  See  DW. 

ADDR_VALUE  Address  of  a location  used  to  store  the 

value  of  a numeric  literal  in  full  floating 
format.  See  DW. 


ARITH_FUNC_TOKEN 

ARITH_TOKEN 

ASSIGN_PARM 

BASE  _PARM_LEVEL 
BCD 

BI_INDEX 
BI  INFO 


See  global  definitions  — TOKEN. 
See  global  definitions  — TOKEN. 


See  symbol  table  — SYT_FLAGS 
See  STREAM. 

Character  string  of  current  item  being 
assembled  by  SCAN. 


Similar  to  V_INDEX  but  for  the  names  of 
built-in  functions. 


Indexing  by  built-in  number  gives  word 
of  information: 


type  (see 
SYT  TYPE) 


P of  args 


pointer  to 
BI  ARG  TYPE 


32  25  24  17  16  98 

For  more  detail,  see  SYNTHESIZE. 


BI_NAME(J)  Is  the  character  string  containing  the 

name  of  the  built-in  function. 

Bit_FUNC_TOKEN  See  global  definitions  — TOKEN. 

BIT_TOKEN  See  global  definitions  — TOKEN. 

BIT_TYPE  See  symbol  table  — SYT_TYPE. 

BLANK  COUNT  See  STREAM. 
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BUILDING  TEMPLATE 


See  SYNTHESIZE 


C 

CHAR_FUNC_TOKEN 
CHAR  OP  (0  or  1) 


CHAR_TOKEN 

CHAR_TYPE 

CHARACTER_STRING 

CHARTYPE 

COMMA 

COMMENT_COUNT 

CONCATENATE 


See  0-W. 

See  global  definitions  — TOKEN. 

Translates  from  0 or  1 escapes  to  equiva- 
lent over  punch  escape  character. 

See  global  definitions  — TOKEN. 

See  global  definitions  --  SYT_TYPE. 

See  global  definitions  — TOKEN. 

See  STREAM. 

See  global  definitions  — TOKEN. 

See  0-W. 

See  global  definitions  — TOKEN, 
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The  type  of  identifiers  is  determined 
by  the  scanner.  Since  the  proper  Symbol 
table  lookup  depends  on  the  context  in 
which  the  identifier  appeared,  this 
context  must  be  known  to  the  scanner. 
EXPRESSION_CONTEXT  means  that  compile 
time  constants  are  expected  for  dimen- 
sion information.  DECLARE  CONTEXT 
means  that  the  identifier  Ts  being 
declared  for  the  current  scope. 
PARM_j:ONTEXT  means  that  the  identifier 
is  a formal  parameter  which  is  not 
yet  declared  in  this  scope,  but  will 
be.  ASSIGN_CONTEXT  is  a special  case 
of  PARM_CONTEXT  for  assign  parameters 
of  procedures. 

REPL_CONTEXT  indicates  that  a REPLACE 
definition  is  being  processed  and  so 
a macro  name  that  .otherwise  would 
be  "previously  defined"  can  be 
defined.  Once  the  macro  name  has 
been  defined,  we  switch  to  REPLACE  PARM 
CONTEXT  which  allows  formal  parameter  ~ 
names  to  conflict  with  anything 
except  other  formal  parameters  of 
the  same  macro. 

Since  a new  CONTEXT  is  often  started 
by  a reserved  word,  SET_CONTEXT  gives 
the  appropriate  context  for  each  re- 
served word. 

There  are  some  other  flags  which 
augment  CONTEXT.  TEMPLATE_IMPLIED 
augments  DECLARE_CONTEXT  indicating 
that  the  token  name  is  a template 
name  (i.e.  either  a declaration  of  a 
template  or  of  a structure  variable) . 
LABEL_IMPLIED  indicates  that  a look 
ahead  has  found  a colon  and  the  context 
implies  that  the  : is  a label  delimiter. 
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CPD  NUMBER 


See  global  definitions 
See  CONTEXT 


TOKEN 


DECLARE_CONTEXT 

DEF_BIT_LENGTH 

DEF_CHAR_LENGTH 

DEF_MAT_LENGTH 

DEF_VEC_LENGTH 

DEFAULT_ATTR 

DEFAULT  TYPE 


Default  lengths  for  implicit 
of  variables. 


declarations 


See  symbol  table  — SYT_FLAGS. 

Identical  to  SCALAR_TYPE.  See  symbol 
table  — SYT  FLAGS. 


DEFINED_LABEL  See  symbol  table  — SYT_FLAGS 

DONT_SET_WAIT  See  PRINTING_ENABLED . 

DUPL_FLAG  See  symbol  table  — SYT_FLAGS. 

DW  56  byte  area  reserved  for  floating 

point  and  literal  operations;  the  area 
is  needed  because  the  operations  are 
performed  by  MONITOR  calls. 

byte 

offset  index 

0 
4 

24 

32 

40 

48 


: = 

: ■ 

- : 

4E 

00 

00 

00 

0 

48 

7F 

FF 

FF 

FF 

FF 

FF 

FF 

40 

7F 

FF 

FF 

FF 

FF 

FF 

FF 

0 ^ DW_AD 

1 


ADDR  VALUE 


8 ADDR  FIXER 


10  ^ ADDR  FIXED  LIMIT 


12  ^ ADDR  ROUNDER 
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EOFILE 


ESCAPE 

EVENT_TOKEN 

EVIL_FLAG 

EXP_OVERFLOW 

EXP_TYPE 

EXPONENTIATE 

EXPRESSION_CONTEXT 

FACTORING 

FIRST_FREE 

FIRST_TIME 

FIRST  TIME  PARM 


See  global  definitions  — TOKEN. 

The  escape  character. 

See  global  definitions  — TOKEN. 

See  symbol  table  — SYT_FLAGS. 

Switch  ON  if  a character  representation 
could  not  be  converted  to  floating  point 
number . 

Exponent  indicator  on  current  numeric 
token;  'E',  'H' , 'B'  allowed. 

See  global  definitions  — TOKEN. 

See  CONTEXT . 

See  SYNTHESIZE. 

See  MACRO_TEXT. 

See  STREAM. 

See  STREAM. 


FOUND  CENT 


GROUP  NEEDED 


On  if  macro  substitution  markers  (i.e. 
<:name<J:)  were  found  while  scanning  the 
macro  parameter. 

See  STREAM. 


ID  TOKEN 


See  global  definitions  — TOKEN. 


IDENT  COUNT 


Total  number  of  calls  to  IDENTIFY,  for 
compilation  statistics. 


IMP  DECL  See  symbol  table — SYT_FLAGS. 

IMPLICIT  T Switch  ON  if  token  may  be  the  matrix 

“ transpose  symbol  'T'. 


reproducibility  OF  ms 

ORIGINAL  PAGE  IS  POOR 
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.w-»rf«t^j&,^s'-^j,s>,'AV‘,*a...  ^vjs. 


IMPLIED_TYPE 

INACTIVE_FLAG 

IND_CALL_LAB 

INPUT__PARM 

INT_TYPE 

KIN 

LAB_TOKEN 

LABEL_CLASS 

LABEL_IMPLIED 

LEFT_PAREN 

LETTER_OR_DIGIT 

LEVEL 

LOOKUP  ONLY 


Token  type,  as  implied  by  presence 
of  overpunch. 

See  symbol  table  — SYT_FLAGS. 

See  symbol  table  — SYT_TYPE. 

See  symbol  table  — SYT__FLAGS. 

See  symbol  table  --  SYT__TYPE. 

Index  in  symbol  table  of  a structure 
element  underneath  the  structure  indexed 
by  QUALIFICATION. 

See  global  definitions  — TOKEN. 

See  symbol  table  — SYTjCLASS. 

See  CONTEXT. 

See  global  definitions  — TOKEN. 

See  STREAM. 

See  global  definitions  — ■ TOKEN. 

Switch  ON  if  IDENTIFY  should  only 
search  the  symbol  table  without  creating 
a token. 


M_BLANK_COUNT  {macro_expan_level) 


M CENT  . 


Is  the  BLANK_COUNT  after  reading  the 
complete  macro  invocation. 

See  STREAM. 


M_P  (macro_expan_level)  Is  the  saved  value  of  MACRO_POINT 

for  this  level. 

M_PRINT  {macro__expan_level) 

Is  the  saved  value  of  PRINTING_ENABLED 
for  this  level. 


-%> 
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M_TOKENS  (macro_expan_level) 

Equals  number  of  tokens  created  while 
expanding  this  macro. 

MACRO_ARG_COUNT  The  number  of  formal  arguments  so  far 

encountered  in  REPLACE  definition. 


MACRO_ARG_FLAG  See  global  definitions  — GRAMMAR_FLAGS . 

MACRO_CALL_PARM_TABLE  Contains  the  character  strings  for  the 

values  of  the  actual  parameters  of  all 
currently  expanding  REPLACES . Outer 
REPLACES  are  lower  in  the  table  and  the 
left-most  parameter  is  lower  than  the  right- 
most. 


MACRO  EXPAN  LEVEL 


Nesting  depth  of  macro  expansion. 


MACRO_EXPAN_STACK  (macro_expan_level ) 

Equals  symbol  table  entry  for  REPLACE  name. 

MACRO_FOUND  On  if  REPLACE  name  has  been  found  and 

requires  expansion. 

MACRO_NAME  REPLACE  name  being  defined. 

MACRO_POINT  Pointer  to  current  point  in  <text>  of 

current  macro  in  MACRO_TEXT. 

MACRO  TEXT  The  <text>  part  of  a REPLACE  statement 

“ is  stored  in  MACRO_TEXT  by  SCAN.  START_POINT 

points  to  the  beginning  of  the  current  <text>, 
T_INDEX  points  to  the  next  character 
position,  and  FIRST_FREE  points  to  the 
beginning  of  the  next  <text>.  Pairs  of  " 
marks  have  been  replaced  by  single  " 
marks.  Multiple  blanks  have  been  replaced 
by  "EE"  followed  by  BLANK_COUNT.  The 
<text>  is  ended  by  an  "EF”. 

MriJ_3TRUC  See  symbol  table  ^ — SYT_TYPE. 

MAT__TYPE  See  symbol  table  — SYT_TYPE. 

NAME  HASH  See  STREAM. 
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NAMING 


See  SYNTHESIZE 


.*4  iiv 


NDECSY 

See 

Symbol 

Table. 

NEW_MEL 

See 

OLD_MEL . 

NEXT_CHAR 

The 

next  character  from 

STREAM. 

NO_ARG_ARI  TH_FUNC 

See 

global 

definitions  - 

- TOKEN 

NO_ARG_BIT__FUNC 

See 

global 

definitions  - 

- TOKEN 

NO_ARG_CHAR_FUNC 

See 

global 

definitions  - 

- TOKEN 

NO_ARG_STRUCT_FUNC 

See 

global 

definitions  - 

- TOKEN 

NONHAL_FLAG 

See 

symbol 

table  — SYT_ 

FLAGS . 

NUM_OF_PARM 

See 

STREAM. 

NUMBER 

See 

global 

definitions  - 

- TOKEN 

OLD_MEL 

OLD_MP 

OLD_PEL 
OLD  TOPS 


Saved  value  of  MACRO_EXPAN_LEVEL  to 
enable  detection  of  an  exit  from  a macro 
expansion. 

Saved  value  of  MACRO_POINT  — enables 
some  look  ahead  in  the  text. 

Similar  to  OLD_MEL  for  PARM_EXPAN_LEVEL . 

Saved  value  of  TOP  OF  PARM  STACK, 


OUTER  REF 


Used  to  collect  uses  of  scoped  in 
variables  for  printing  by  BLOCK_SUMMARY . 
An  entry  has  the  form: 


flag 


symbol 


13 


where  flag  is  as  in  XREF  and  symbol  is 
a pointer  to  the  symbol  table  entry 
for  the  referenced  variable.  OUTER_REF 
INDEX  points  to  the  last  entry  in 
OUTER_REF  and  OUTER_REF_LIM  is  the  size 
of  OUTER_REF.  OUTER_REF__PTR(nest)  has 
the  form; 
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switch 


OUTER_REF_INDEX 

OUTER_REF_LIM 

OUTER_REF_PTR 

OVER_PUNCH 

OVER_PUNCH_TYPE 

P_CENT 

parm_context 
PARM  COUNT 


INTERMETRICS  INCORPORATED 


pointer 


1 15 

where  pointer  points  to  the  first 
OUTER  REF  entry  for  level  nest  and 
switch  is  set  after  printing  the  over- 
flow message  to  inhibit  multiple 
printing  of  the  message. 


See  OUTER  REF. 


See  STREAM. 

If  OVER  PUNCH_TYPE(I)  = char  then 
an  over  punch  of  char  implies  that 
the  identifier  is  of  type  I. 

See  STREAM. 


.[ 


See  CONTEXT. 

Number  of  parameters  in  stack  examined  , 

by  PARM  FOUND.  TOP_OF_PARM_STACK  - PARM_COUNT 
gives  the  stack  offset  of  the  current 
macro's  narameters. 
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PARM_EXPAN_LEVEL 
PARM_RE  PLACE_PTR 
PARM_STACK_PTR 
PASS 

PC_LIMIT 

PCNAME 

PERCENT_MACRO 

PRINT_FLAG 

PRINTING_ENABLED 


See  STREAM. 

See  STREAM. 

See  STREAM. 

Used  for  saving  value  of 
PRINTING_ENABLED  during  macro 
expansion. 

Length  of  longest  %macro  name. 

String  containing  names  of  %macros, 
left- justified  in  16-character  fields. 

See  global  definitions  — TOKEN. 

See  global  definitions  — GRAMMAR_PLAGS . 

A token  is  ultimately  printed  if 
PRINT_FLAG  is  on  in  GRAMMAR_FLAGS . This 
decision  is  made  by  an  AND  of 
PRINTING_ENABLED  (general  context) 
and  SUPPRESS_THIS_TOKEN_ONLY  (local) . 
When  changing  PRINTING_ENABLED  it  is 
possible  to  delay  its  effect  for 
one  word  by  setting  WAIT.  WAIT  is 
set  when  exiting  a macro  expansion. 

If  the  expansion  generated  no  tokens, 
setting  WAIT  is  inhibited  by 
DONT  SET  WAIT. 


PROC_LABEL  See  symbol  table  — SYTJTYPE. 

PROCMARK  Index  into  symbol  table  - everything 

below  it  was  declared  in  other  (outer) 
procedure  blocks . 


QUALIFICATION 

See 

Section  4.4. 

RECOVERING 

See 

0-W. 

REF_ID_LOC 

See 

Structures  and  Templates. 

REPL_ARG_CLASS 

See 

symbol  table  — SYT_CLASS. 

REPL_CLASS 

See 

symbol  table  — SYT_CLASS. 

REPL_CONTEXT 

See 

CONTEXT. 

REPLACE  PARM  CONTEXT 

See 

CONTEXT . 
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REPLACE_TEXT 

RESERVED_LIMIT 

RESERVED_WORD 

restore 

RT_PAREN 

SAVE_BLANK_C0UNT 

SAVEjCOMMENT 

SAVE_NEXT_CHAR 

SAVE_OVER_PUNCH 

SAVE_PE 

SCALAR_TYPE 
SCAN  COUNT 


See  global  definitions  — TOKEN. 

Length  of  longest  reserved  word.  | 

Switch  ON  if  current  token  is  a HAL/S 
reserved  word. 

used  to  save  the  value  of  PRINT ING_ENABLED 
during  macro  expansion. 

See  global  definitions  — TOKEN. 

When  SCAN  is  searching  for  a non-blank 
(on  macro  exit  this  can  be  a problem) 
SAVE_BLANK_COUNT  is  used  to  save  the  last 
BLANKJ20UNT . 

See  0-W. 

See  STREAM. 


See  STREAM. 

Saved  value  of  PRINTINGJENABLED  used  to 
make  printing  decisions  at  the  end  of  macro 
nr-  tnanro  oarameter  expansions. 


See  symbol  table  — - SYT_TYPE. 

Total  number  of  TOKENS  SCANned  — for 
compilation  statistics. 


SETjCONTEXT 

SOME_BCD 

SQUEEZING 

SRN 

SRN_COUNT 
SRN_PRESENT 
START_POINT 
STMT_LABEL 
STMT_PTR 
STRING  OVERFLOW 


See  CONTEXT. 

Contains  the  substring  of  BCD 
! point  where  <?name<:  was  discovered. 


See  0-W. 


See  MACROJTEXT . 

See  symbol  table  — SYT_TYPE. 

See  GRAMMAR_FLAGS . 

Switch  ON  if  character  literal  is  too 
long. 

I 
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STRUC_TOKEN 

See 

global 

definitions 

— TOKEN. 

STRUCT_FUNC_TOKEN 

See 

global 

definitions 

— TOKEN. 

STRUCT_TEMPLATE 

See 

global 

definitions 

— TOKEN. 

STRUCTURE_WORD 

See 

global 

definitions 

— TOKEN. 

SUPPRESS_THIS_TOKEN 

_ONLY  See 

PRINTING_ENABLED . 

SYT_INDEX 

For 

the 

literals,  its  absolute  index 
literal  tables;  for  built-in 

T_INDEX 
TASK_LABEL 
TEMP  STRING 


index  of  built-in  functions  in  BI_INFO; 
for  %macros,  the  internal  number  of  the  macro; 
for  other  identifiers,  a symbol  table  pointer. 
SYT_INDEX  is  zeroed  at  SCAN_START. 

See  MACRO_TEXT . 

See  symbol  table  — SYT_TYPE. 

Used  to  accumulate  character  strings  in 
analyzing  macro  calls. 


TEMPL_NAME 
TEMPLATE_CLASS 
TEMPLATE_IMPLI ED 
TEMPORARY 
TEMPORARY_FLAG 
TEMPORARY  _IMPLIED 

TOKEN 


TOKEN^FLAGS 

TOP  OF  PARM  STACK 


See  symbol  table  — SYT_TYPE. 

See  symbol  table — SYTjCLASS. 

See  CONTEXT. 

See  global  definitions  — TOKEN. 

See  symbol  table  — SYT_FLAGS. 

Switch  ON  if  TEMPORARY  keyword  has  been 
read  in  this  statement. 

The  type  of  the  current  token.  A value 
of  -1  indicates  a REPLACE  name.  For 
definition  of  other  values,  see  global 
variables. 

See  global  definitions  — GRAMMAR_FLAGS . 

Points  to  the  top  of  the  MACR0_CALL_PARM_T2VBLE . 
Parameter  lists  being  scanned  are  built 
immediately  above  this  point. 
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TRANS  IN  (Char) 


TX  (Char) 

UNSPEC_LABEL 

V_INDEX 

VALID_00_CHAR 

VALID_00_OP 

VALUE 

VAR_CLASS 

VAR_LENGTH 

VEC_TYPE 

VOCAB_INDEX 

WAIT 

XREF_REF 

XI 


INTERMETRICS  INCORPORATED 


Is  a two  byte  translation  table  for 
char.  The  right  byte  is  the  single 
escape  translation  and  the  left  byte 
is  the  double  escape  translation. 

Is  the  internal  TOKEN  code  for  the  special 
character  char. 

See  symbol  table  — SYT__TyPE. 

See  procedure  SCAN  --  identifiers. 

Input  character  that  can  be  escaped  to 
give  "00". 

Overpunch  required  to  translate 
VALID_00_CHAR  to  "00". 

Numerical  value  of  current  token  (if 
token  is  numeric) . 

See  symbol  table  — SYT_CLASS. 

See  symbol  table  — identical  to  SYT_DIMS. 

See  symbol  table  — SYT_TYPE. 

See  procedure  SCAN  — identifiers. 

See  PRINTING_ENABLED . 

See  symbol  table  — SYT_XREF. 

1 blank. 
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577700 

967400 

579000 

580000 

606200 

578708 

755800 


RECOVER 
executed 

once  and  gets  everything  primed,  the  other  calls  are  all  routed 
through  CALL_SCAN  and  are  genuine  requests  for  another  token. 

The  purpose  of  interposing  CALL_SCAN  is  to  allow  clean  handling 
of  some  diagnostic  printing.  SCAN  calls  STREAM  to  get  characters 
one  by  one  in  NEXT_CHAR.  It  puts  them  together  in  BCD  until  it 
finds  a delimiter  and  then  determines  the  TOKEN  type  of  BCD. 

TOKEN  SYT_INDEX,  and  BCD  are  SCAN's  principal  interfaces  to  the 
outside  world. 

The  global  structure  of  the  routine  is  a DO  CASE  on  the 
type  of  the  first  character  of  the  next  token.  Each  case  in 
turn  accumulates  the  rest  of  the  token  and  builds  BCD  and  an 

internal  version  via  BUILD BCD  and  BUILD_INTBRNAL_BCD . In 

addition,  it  may  issue  error  messages  based  on  the  context; 
for  instance,  if  the  first  character  is  a digit,  the  token 
must  be  a number  which  can  contain  only  characters  from  a 
given  set  and  may  bs  delimited  only  by  characters  from  some 
second  set . 

Since  all  macro  and  macro  parameter  expansions  are  handled 
at  the  scanner  level,  a large  number  of  items  may  be  read  before 
a syntactic  token  is  obtained;  thus,  the  routine  may  very  well 
execute  several  cycles  of  "pick  up  word;  set  up  to  expand  word, 
go  back  to  the  beginning". 

After  accumulating  a token  but  before  actually  returning  it, 
SCAN  looks  to  see  if  the  next  thing  in  the  input  stream  is  an 
embedded  comment.  If  it  is,  the  comment  is  accumulated  one 
character  at  a time  using  BUILD_COMMENT  to  save  the  characters  in 
SAVE  COMMENT.  Finally,  the  token  is  returned. 
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-4T  ~- 


SCAN 

CALL_SCAN 

BUILD_BCD 

BUILD__INTERNAL_BCD  — 
ID_LOOP 
CHAR_OP_CHECK 
BUILT  COMMENT 


SCAN  is  called  from  three  places:  INITIALIZATION, 
and  COMPILATION  LOOP.  The  call  from  INITIALIZATION  is 


Details  of  the  Central  DO  CASE 


1 - numbers 

Accumulate  the  entire  number  including  exponent  if 
any.  Convert  number  to  360  floating  point,  check  it  for 
range  and  enter  it  in  the  literal  table  via  PREP_LITERAL . 


2 - identifiers 


This  is  where  most  of  the  work  s.tarts.  First,  use  ID_LOOP 
to  accumulate  the  identifier  and  set  IMPLIED_TYPE  if  there  is 
an  overpunch.  Then  search  the  list  of  reserved  wprds  for  the 
identifier.  The  tables  are  organized  like  this; 


V INDEX 


VOCAB  INDEX 


VOCAB 


1 


2 


I length  2 
I descriptors 
( in  alphabetical 


order^AT 


length  3 

descriptors 

in  alphabetical  order 


{length  RESERVED_LIMIT 
descriptors 
in  alphabetical  order 

The  reason  for  the  explicitly  hand  crafted  descriptors 
is  to  prevent  overflow  of  the  limited  size  descriptor  table. 

If  the  identifier  is  a reserved  word,  set  up  the  CONTEXT  (see 
data  description)  and  return. 

If  the  identifier  is  not  a reserved  word,  it  may  be  a macro 
parameter.  Check  this  via  PARM__FOUND  and  if  it  is,  expand  the 
parameter.  Notice  that  the  parameter  never  generates  a token  itself. 

If  the  identifier  is  not  a macro  pararaeter,  then  look  it  up 
in  the  symbol  table  via  IDENTIFY  but  do  not  return  it  yet  — 
maybe  its  a macro  call.  If  it  is  not  a macro  name  then  return 
TOKEN  as  set  up  by  IDENTIFY;  otherwise,  set  up  the  macro  expansion 
via  PUSHjyiACRO  and  then  start  taking  characters  from  the  expansion. 
Notice  that  the  macro  call  itself  does  not  actually  generate  a 
token. 
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4 - period 

If  next  character  is  a digit,  build  a 
in  the  normal  way;  otherwise,  return  dot  product  TOKEN. 

5 - character  literal 

Build  the  string  by  concatenating  characters.  Be 
careful  to: 

- expand  multiple  blanks 

- check  for  ' ' and  replace  it  by  ' 

- translate  escaped  characters  using  CHAR_OP_CHECK . 
Return  a character  string  TOKEN. 


7 - Jor 


Return  either  an  OR  or  a CAT  TOKEN. 


8 “ * or  ** 


Return  either  a cross  product  or  exponentiate  TOKEN. 


"FE"  = end  of  file 


Return  an  end  of  file  TOKEN. 

- Special  Characters  Treated  as  Blanks 
Simulate  blank  and  reenter  SCAN. 
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tf 


REPLACE  Text 


Insert  the  text  in  MACRO_TEXT.  Be  careful  to; 
replace  " " by  ” 

- encode  BLANK_GOUNT  for  multiple  blanks 

- insert  "EE"  end  of  macro  character. 

Return  a replace  text  TOKEN. 


12  - %macros 

Accumulate  entire  name;  return  index  of  name  in 
SYT_INDEX  and  return  percent  macro  TOKEN. 


13  - REPLACE  macro  call 

This  code  is  reached  if  the  first  character  is  a 
or  if  a was  found  while  scanning  an  identifier  in  case 
2.  In  the  former  situation,  after  accumulating  and  setting 
up  for  the  expansion  of  the  macro  or  parameter  name,  the  code 
simply  starts  from  the  beginning  of  the  scanner.  In  the 
latter  situation,  the  code  must  set  up  for  expansion  and  then 
return  back  to  finish  accumulating  the  identifier  it  was 
originally  working  on.  Notice  that  if  the  source  is; 

Cmacro_name (args) C 

then  the  second  <:  is  not  read  by  this  code.  It  is  checked  by 
PARAMETER_PROCESSING  and  skipped  by  PUSH  MACRO. 
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PUSH  MACRO 


625200 


PUSHJMACRO  is  called  to  handle  a macro  call. 

Push  symbol  table  entry  for  macro  onto  MACRO_EXPAN_STACK , 
push  the  macro  name  onto  STMT_STACK  via  SAVE_TOKEN,  set  up 
NUM_OF_PARM  so  that  number  of  actual  parameters  can  be  compared 
with  the  number  of  formal  parameters.  Read  in  the  actual 
parameters  via  PARAMETER  PROCESSING. 


• PARAMETER_PROCESSING  — 580900 

PARAMETER_PROCESSING  is  called  by  PUSH_MACRO  after 
finding  a macro  name  to  build  a list  of  the  actual  macro 
parameters  in  MACRO_CALL_PARM_TABLE . The  parameters  are 
entered  into  STMT_STACK  via  SAVE_TOKEN.  The  bulk  of  the 
routine  simply  updates  pointers  and  counters  described  in 
the  data  description  section.  Notice  that  although 
PARAMETER_PROCESSING  reads  a lot  of  information,  it  does  not 
actually  generate  any  tokens  but  simply  prepares  for  a macro 
expansion. 


PARM_FOUND  — 615700 

PARM  FOUND  is  called  for  each  non-reserved  word  identifier 
to  check  if  it  is  a formal  parameter  of  a macro  being  expanded. 

The  symbol  table  entries  for  the  formal  parameters  are  immediately 
after  the  entry  for  the  macro;  thus,  PARM_FOUND  need  only  loop 
comparing  BCD  to  SYT_NAME.  If  a match  is  found,  it  is  stacked 
in  the  parameter  stack  and  TRUE  is  returned;  otherwise,  FALSE 
is  returned. 
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W' 


IDENTIFY  — 557900 


IDENTIFY  builds  the  symbol  table  and  searches  it  for 
identifiers.  In  principal,  this  should  be  a triviality; 
however,  the  mass  of  detail  and  the  requirement  of  performing 
IDENTIFY  at  SCAN  time  makes  things  substantially  more  Complex. 


IDENTIFY  receives  two  arguments.  BCD  is  the  character 
string  to  be  looked  up.  CENT_IDENTIFY  is  true  if  the  name  was 
enclosed  in  signs.  It  returns  values  in  SYT_INDEX  and 

TOKEN . 


To  look  up  a name  in  the  symbol  table,  compute  NAME_HASH  = 
HASH  (name).  NAME_HASH  is  an  index  into  the  hash  table  HASHSTART, 
thus , if  I = HASHSTART (NAME_HASH) , then  I points  to  a symbol 
table  entry  with  the  given  hash  code.  Symbol  table  entries  with 
the  same  hash  code  are  linked  via  their  SYT_HASHLINK  fields;  thus, 
if  entry  I is  not  the  right  one,  try  I = SYT_HASHLINK (I) . If 
the  link  is  zero,  there  are  no  more  entries  for  that  hash  code. 


Before  looking  up  a name  in  the  symbol  table,  if  it  is  a 
template  name,  prefix  it  with  a blank;  if  it  is  an  EQUATE  name, 
prefix  it  with  a @;  try  looking  it  up  in  the  table  of  built-in 
function  names. 


The  universe  of  names  is  divided  into  two  parts,  those 
that  are  already  in  the  table  and  those  that  are  not. 


Name  Already  in  Table 


If  the  name  is  a macro  name  then  either  set  up  to  expand 
it  or  simulate  a "name  not  found"  to  permit  a new  declaration 
for  the  macro  name. 


It  would  be  nice  now  to  simply  return  the  symbol  table 
pointer  but  the  actual  actions  required  depend  on  the  context 
in  which  the  identifier  appears  (cf.  CONTEXT). 


For  the  run  of  the  mill  situation: 

- variables  — set  TOKEN  appropriately 

- labels 


— set  TOKEN,  create  cross  reference,  check 
legality. 


- functions  --  check  legality,  set  TOKEN  appropriately. 
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^ a 

I 


if 


- templates  — notice  that  all  qualifier  names  in  a 

structure  reference  are  template  names. 

Search  the  descendants  of  the  node  currently 
reached  (as  indicated  by  QUALIFICATION) . 

If  the  name  is  there,  move  QUALIFICATION 
to  this  entry;  otherwise,  move  through  hash 
link  for  an  alternative  symbol  table  entry 
to  try. 

In  EXPRESSION_CONTEXT,  process  like  run  of  the  mill. 

After  a GO  TO,  if  the  name  is  not  local  or  not  a label, 
create  a new  entry;  otherwise,  check  legality. 

After  a CALL,  if  the  name  is  not  local,  create  a local 
entry  of  type  IND_CALL_LAB  pointing  to  the  non-local  entry. 

Check  for  legality. 

After  SCHEDULE,  process  normally. 

In  DECLARE_CONTEXT , if  the  existing  entry  is  from  an  outer 
scope,  make  a new  one.  If  in  the  middle  of  constructing  a template, 
set  to  indicate  that  the  name  already  exists  (which  is  legal  in 
a structure  qualifier)  and  go  pick  up  in  the  hash  links. 

Name  Not  Already  in  Table 

Once  again,  the  appropriate  action  depends  on  the  CONTEXT. 

For  the  ordinary  case ; labels  are  detected  by  spotting  the 
colon  and  defining  them  to  be  of  type  UNSPEC_LABEL  (see  SYT_FLAGS) ; 
a T ought  to  be  a transpose  operator;  everything  else  is  a use 
of  an  undeclared  name  (this  is  not  DEGLARE_CONTEXT ) and  is  therefore 
illegal  so  print  an  error  message  and  default  type  it. 

Only  declared  names  may  appear  in  EXPRESSIONjCONTEXT. 

After  a GO  TO,  create  an  entry  for  a label  that  will  be 
defined  later. 

After  a CALL,  create  an  entry  for  a procedure  name  which 
will  be  defined  later. 


After  a SCHEDULE,  create  an  entry  for  a task  name  which 
will  be  defined  later. 

In  DECLARE_CONTEXT , create  an  entry  and  return  it  unless 
the  name  was  previously  located  in  which  case  just  return  the 
previous  entry. 

After  REPLACE,  make  an  entry  for  a macro  name  and  switch 
CONTEXT  to  expect  formal  parameters . 
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SAVE  TOKEN  — 399700 

OUTPUT  STACK  RELOCATE  — 400500 


The  source  listing  is  ultimately  printed  by  the  output 
writer.  The  output  writer  is  invoked  only  when 
"new  E/M/S  group"  points  are  reached;  thus,  the  "‘fj^erial  to  be 
printed  must  be  saved  somewhere  in  the  xnterim.  The  sa  g 
operation  is  performed  by  SAVE_TOKEN  whxch  called  by  the 
parser  whenever  it  receives  a token,  ^ince  macro  calls  a 
invisible  to  the  parser,  they  are  transmitted  directly  to 
SAVE_TOKEN  from  SCAN. 

SAVE  TOKEN  receives  the  token  code  in  TOKEN,  the  character 
strinl  l^CH^,  and  the  type  (i.e.  SYT_TYPE)  In  TYPE,  /t  Puts 
the  type  in  TOKEN  FLAGS.  If  the  item  is  not  a reserved 
??  the  character  string  in  SAVE  BCD  and  a pointer  to  SAVE_BCD 

in  TOKEN_FLAGS.  The  token  is  saved  in 

is  set  to -indicate  whether  or  not  to  print  the  item. 

There  are  two  things  that  can  overflow.  STMT  PTR  can  get 
too  large  or  BCD  PTR  can  get  too  large.  If  either  happens, 

OUTPUT  STACK  RELOCATE  is  called  to  force  some  printing  and  then 
a relocation”of  all  unprinted  material  down  m the  stack. 
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— 556200 

— 552300 

— 549400 

— 547800 
REF  — 533000 


ENTER  receives  a name  and  class  for  an  identifier  and  creates 
a symbol  table  entry  for  it.  The  hash  table  is  modified  to  point 
to  this  symbol  table  entry  first  and  the  identifier  usage  is 
entered  in  the  cross  reference  table  via  SET_XREF.  Notice  that 
if  the  entry  is  a formal  parameter  of  a macro,  it  is  entered 
after  the  current  entry  in  the  hash  link  if  possible. 

SET_XREF  receives  a symbol  table  pointer  (LOG) , an  XREF 
flag  (FLAG),  and  a second  XREF  flag  (FLAG2) . SET  XREF 
builts  a new  (or  adds  to  an  existing)  XREF  entry  and  connects 
it  to  the  appropriate  linked  XREF  list  via  ENTER_XREF.  If  the 
variable  is  declared  in  an  enclosing  scope,  SET_OUTER_REF  is 
called  to  make  FLAG2  entry  in  OUTER_REF.  Notice  that”unless 
told  otherwise,  a subscript  usage  will  be  converted  to  a 
reference  usage  for  SET_OUTER_REF . If  the  OUTER_REF  array 
overflows,  SET_OUTER_REF  will  in  turn  call  COMPRESS_OUTER_REF 
to  compress  out  duplicate  entries  in  OUTER  REF. 


ENTER 
SET_XREF 
ENTER_XREF 
SET_OUTER_REF 
COMPRESS  OUTER 
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SAVE_LITERAL 
PREP_LITERAL 
GET  LITERAL 


--  569800 
--  574100 
- 175900 


literals  to  the  literal  table  (see 
section  3.1).  Before  performing  any  manipulations  on  the 
paged  part  of  the  table,  it  uses  GET  LITERAL  to  load  the 
proper  page  and  convert  the  absolute  literal  table  index 

current  page.  SAVE  LITERAL 

returns  the  absolute  literal  table  index  for  the  literal 
saved. 

When  dealing  with  character  strings,  INLINE  code 
is  necessary  because  it  is  necessary  to  copy  the  character 
strings  to  LIT_CHAR.  The  obvious  XPL  code  would  copy  only 
the  descriptor.  ^ 


Notice  that  at  this  level,  multiple  instances  of 
generate  multiple  copies  in  the  literal  table.  Phase 
generate  only  one  copy  of  each  desired  literal. 


a literal 
II  will 


PREP  LITERAL  takes  a floating  point  number  fresh  from 
creation  by  a MONITOR (10)  call,  checks  it  for  proper  limits, 

SYT^tLeX  In  SAVE_LITERAL  and  sets 

the  absolute  index  of  the  litoral. 


ftEPflODtJCmiTT  OP  THE 

OEIGMAL  i''’ 
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4.2.2  STREAM 


STREAM  is  the  character  level  half  of  the  scanner. 

It  actually  reads  the  input,  processes  compiler  directives, 
and  passes  to  SCAN  a single  linear  stream  of  characters. 


4. 2. 2.1-  Variables  of  STREAM. 


ARROW 


ARROW_FLAG 

BLANKS 

CP 

E BLANKS  ■ 


E COUNT 


Displacement,  in  number  of  lines,  of  the 
current  character  relative  to  the  last 
character  transmitted;  used  to  detect 
flying  exponents  and  to  regenerate  parentheses 
around  E or  S groups. 

When  returning  created  characters,  the  infor- 
mation about  the  next  real  character  is  saved 
in  SAVE_BLANK_C0UNT1,  SAVE_NEXT_CHAR1 , and 
SAVE_0VER_PUNCH1.  ARROW_FLAG  indicates  that 
this  information  should  be  restored  and  used 
before  moving  to  the  next  character. 

Blank  field,  44  characters  long. 

Card  pointer  - index  of  character  being 
scanned  on  current  card. 

E_IND  indicates  blank  compression  internal  to 
E_STACK.  E_BLANKS  indicates  blank  compression 
at  the  end.  That  is,  there  were  E_BLANKS  blanks 
compressed  off  the  end  of  E_STACK.  E_BLANKS  can 
be;  -1 — E_STACK  ends  with  non-blank;  0--E_STACK 
ends  with  a single  blank;  >0 — blanks  were 
compressed  off. 

Number  of  E-lines  in  current  group. 
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E IND 


E_INDICATOR 
E_LINE 
E STACK 


EP 

IND_SHIFT 

INDEX 
INPUT  PAD 


M_BLANKS 

M_LINE 

POINTER 

PREV_CARD 
RETURN  CHAR 


If  E STACK (point)  is  blank,  then  E^IND (point) 
blanks  were  compressed  out;  otherwise,  when 
E STACK (point)  was  copied  from  E_LINE (index) , 
e””inD  (point)  was  copied  from  E_INDICATOR  (index)  . 
S"~IND  is  reached  just  like  S_INDICATOR. 


See  procedure  COMP. 


See  procedure  COMP. 

Holds  complete  exponent  ready  for  transmission 
strings  of  blanks  have  been  compressed  using 
E IND.  If  no  non-blank  characters  were  found 
in  the  exponent  BUILD_XSCRIPTS  set  E_STACK 
to  null. 

0 - Index  of  last  character  in  E_STACK. 

1 - Index  of  last  character  in  S_STACK. 


Literally  7 — used  to  create  references  to 
S_array  name (sub)  by  writing 
E array  name  (sub  + T)  , 

tm/iov  of  n«=>xt  non-blank  character  in  M line. 


Special  M-line  card  generated  at  EOF  - 
[M  /**/  0 @ ' 0 0] » The  /**/  terminates  any 

open  comments;  the  0 is'  an  EOF  mark  and 
the  ' closes  any  open  quotes. 


See  E_BLANKS. 

The  actual  character  string  of  the  M line. 

When  returning  characters  from  an  exponent 
or  subscript,  POINTER  points  to  the  next 
character  in  E ^STACK  or  S STACK. 

Card  type  of  previous  input  line  - used  to 
check  EMS  sequencing  via  ORDER_OK. 

See  TYPE  CHAR. 
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returning_e 

switch  ON  if  in  the  process  of  returning 
characters  from  E_line,  initial  y 

RETURNINGjyi 

See  RETURNING_E, • initially  true. 

RETURNING_S 

See  RETURNING_E,  initially  false. 

S__BLANKS 

See  E_BLANKS. 

S_C0UNT 

Number  of  S lines  in  current  group 
procedure  COMP) . 

(see 

S_IND (i) 

E_IND(i  + 2tND_SHIFTj  j,ut  used  for 

subscripts . 

S INDICATOR 

See  procedure  COMP. 

S_LINE 

See  procedure  COMP. 

S_STACK (i) 

E STACK  (i  + iIND_SHIFT)  ^sed  for  subscripts. 

SAVE  BLANKjCOUNTl 

See  ARROW_FLAG . 

SAVE  NEXTjCHARl 

See  ARROW_FLAG. 

S AVE_OVER_PUNCH 1 

SP 

TYPE  CHAR 


See  ARROW__FLAG . 

EP(1) r but  used  f or  subscxipts . 

When  reading  multi-line  input,  STREMl  ^ ^ 
simulates  linear  input  by  adding  subscript, 
superscript,  and  parenthesis  characters. 
Se^L  ?h4  line  level 
characters  are  inserted 

returned  on  successive  calls  to  STREAM. 

Sometimes  the  ^^me  _ TYPE_CHAR  appe^^^^^ 
several  times  in  succession,  RETURN_CHAR  is 
used  to  hold  a repeat  count. 


INTERMETRICS  INCORPORATED 
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4.242.2  Global  Variables  Referenced  by  STREAM 


ACCESS  FLAGS 


See  symbol  table  — SYT  FLAGS. 


ACCESS  FOUND 


Switch  ON  if  any  ACCESS  attributes  have  been 
coded  in  this  compilation. 


BASE_PARM_LEVEL  (macro_expan_level) 

The  value  of  PARM_EXPAN_LEVEL  on  entry  to  this 
macro.  When  PARM_EXPAN_LEVEL  > BASE_PARM_LEVEL , 
parameter  expansion  is  underway. 


BLANK_COUNT 

BLOCK_MODE 

CARDJCOUNT 

CARD_TYPE 

CHART YPE  (byte) 

COMMENTING 

CURRENT_CARD 
END_GROUP 
END  OF  INPUT 


If  STREAM  finds  a string  of  blanks,  it  returns 
only  one  in  NEXT_CHAR  and  sets  BLANK_COUNT 
to  the  number  compacted  out. 

=0  before  encountering  the  primary  unit 
of  compilation  (after  which  'D  PROGRAM' 
cards  are  invalid)  . See  SYNTHESIZE  for  more  detail 

Number  of  cards  read  from  all  input  files. 

Indexing  by  hex  card  type  (E,  M or  blank, 

S,  C,  or  D)  yields  DO-CASE  code  (1,  2,  3,  or 
4,  respectively). 

Is  the  type  of  the  associated  character,  0= 
illegal,  1 = digit,  2 = alphabetic;  ... 


Switch  ON  for  every  card  read  after  the  first 
one  in  a series;  used  to  suppress  double 
spacing  on  output. 

Card  image  buffer,  filled  by  READ_CARD 
from  input  file. 

Switch  ON  if  CURRENT_CARD  contains  the 
beginning  of  a new  EMS  group  — set  by  ORDER_OK. 

Switch  ON  if  EOF  read  on  input  file. 


ENDSCOPE_FLAG  See  symbol  table  — SYT  FLAGS. 
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FIRSTjriME  (macro_expan_level) 

True  almost  all  the  time.  Set  false 
after  putting  out  created  blank  after  macro 
expansion  so  that  only  one  blank  is  created. 
M_CENT  indicates  that  the  macro  call  was  in 
<r  signs  so  that  not  even  the  first  blank 
should  be  created. 

F I RS  T_TIME__PARM  ( pa  rm_expan_le ve  1 ) 

Like  FIRST_TIME  but  used  for  actual  parameters. 

GROUP  NEEDED  Switch  ON  if  STREAM  buffers  have  been  exhausted 

“ and  GET_GROUP  must  be  called. 

INCLUDE  END  On  if  just  read  END  on  INCLUDE  file. 


INCLUDE_COMPRESSED  Switch  ON  if  current  include  file  is  in 

compressed  format. 

INCLUDE  LIST  Switch  ON  if  include  file  is  being  listed  at 

“ all  (default  is  ON  - turned  OFF  by  'D  INCLUDE  ... 

NOLIST'  card  option) . 

INCLUDE  LIST2  Switch  ON  if  include  file  is  being  printed 

“on  secondary  listing  (cf.  INCLUDE_LIST) . 

... 

INCLUDE  MSG  Name  of  current  include  file  - used  in  messages, 

" set  by  PROCESS_COMMENT . 


INCLUDE  OFFSET  Absolute  position  with  respect  to  input  stream 

“ of  first  include  card  — the  relative  position 

of  the  current  card  within  the  include  file  can 
be  calculated  from  CARD_COUNT-INCLUDE_OPFSET . 

When  reading  from  primary  file,  INCLUDE_OFFSET 
is  set  up  to  subtract  out  the  sum  of  previous 
include  files;  thus  giving  the  relative 
position  within  the  primary  file. 

INCLUDE_OPENED  Switch  ON  if  include  file  open. 

INCLUDING  On  if  reading  from  INCLUDE  file. 

IN1TIAL_INCLUDE_REC0RD 

Switch  ON  if  first  record  of  include  file  is 
already  in  CURRENT_CARD . 

Current  source  file  (0=SYSIN,  4-include  file) . 

Input  buffer  for  DECOMPRESS,  (0)  SYSIN,  (1) 
includa  file. 
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INPUT_DEV 
INPUT  REC 


lODEV  See  SYNTHESIZE. 

LETTER  OR  DIGITS  (character) 


LISTING2 

LRECL 

M_BLANK_COUNT 
M_CENT 
M P 


Is  true  if  and  only  if  character  belongs 
to  the  set  {A-Z,  a~Z/  , 0-9},  When 
reading  ACCESS  files,  is  temporarily  added 
to  the  set. 

Switch  ON  if  secondary  (unformatted)  listing 
is  being  produced. 

Length  of  records  in  INPUT_REC. 

See  SCAN. 

See  FIRST_TIME. 

See  SCAN. 


MACRO_CALL_PARM_TABLE  See  SCAN. 

MACRO  EXPAN_LEVEL  Current  depth  of  macro  expansion  nesting  — 
— indexes  macro  processing  stacks. 


MACRO_FOUND 

MACRO_POINT 
MACRO_TEXT 
NAME  HASH 


ON  if  a macro  name  has  been  identified  and 
needs  expansion. 

See  SCAN. 

See  SCAN. 

Hased  code  for  a name  - used  to  index 
SYT  HASHLINK. 
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NEW_LEVEL 

NEXT 

NEXT_CHAR 
NONBLANK  FOUND 


Relative  to  line  number  of  line  containing 
the  current  character.  Value  is  0 for  M 
line,  1 for  line  above  M line,  -1  for 
line  below  M line,  etc. 

Index  of  last  line  in  SAVE_GROUP. 

This  is  the  principal  interface  between 
STREAM  and  SCAN.  The  next  character  as 
a bit (8)  is  delivered  here.  See  also 
BLANK_COUNT. 

Switch  ON  if  STACK  found  a non-blank 
character  when  stacking  sub/super  script. 


NUM_OF_PARM  (macro_expan_level ) 

OLD_LEVEL 
OVER_PUNCH 
P_CENT 

PARM_EXPAN_LEVEL 

PARM_REPLACE_PTR  (parm_expan_level) 

Is  a pointer  to  the  next  character  in 
MACRO_CALL_PARM__TABLE  (PARM_STACK_PTR) 
to  be  passed  by  STREAM. 

PARI4_STACK_PTR  (parm_expan_level) 

Is  the  actual  parameter  being  expanded. 

PROGRAM  ID  Name  of  access  control  file,  from  'D  PROGRAM' 

""  card. 

READ_ACCESS_FLAG  See  symbol  table  — SYT_FLAGS. 

SAVE  CARD  Copy  of  CURRENTjCARD  made  by  READ_CARD, 

“ stored  by  SAVE_INPUT  for  secondary  listing. 
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Is  the  number  of  parameters  required  for 
that  macro. 

Level  of  last  character  transmitted  (cf. 
NEW_LEVEL) . 

If  7^  0,  character  is  punched  directly  over 
NEXT_CHAR  (i. e . , on  E line) . 

Like  M_CENT  only  used  for  actual  parameters. 

When  expanding  REPLACE  parameters,  this 
indexes  the  stacks  required  by  the  observa- 
tion that  actual  parameters  may  in  turn  con- 
tain parameters  from  calling  macros  which 
must  be  expanded  in  line. 


SAVE_GROUP 

SAVE_NEXT_CHAR 

SAVE_OVER_PUNCH 

STARS 


Stack  of  lines  to  be  printed  on  LISTING2 
file,  collected  by  SAVE_INPUT,  printed  by 
OUTPUT_GROUP . 

Most  recent  value  of  NEXT_CHAR;  saved  here 
while  macro  processing  goes  on. 

See  SAVE_NEXT_CHAR. 

Field  of  5 stars  - used  in  listing  messages. 


TEXT_LIMIT 

TOO_MANY_LINES 

top_of_p'arm_stack 

XI 

X4 

X70 

X8 


Number  of  columns  reserved  for  HAL/S  text  on 
input  card  - everything  to  the  right  is  put 
into  SRN. 

Switch  ON  if  SAVE_GROUP  is  full. 

See  SCAN. 

Blank  fields  of  1,4,70  and  8 characters. 

Blank  fields  of  1,4,70  and  8 characters. 

Blank  fields  of  1,4 » 70  and  8 characters. 

Blank  fields  of  1,4,70  and  8 characters. 
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STREAM  — 350000 

4. 2. 2. 3 Procedures  of  STREAM.  STACK  RETURN_CHAR  — 384500 


The  routine  is  essentially  broken  into  two  independent  parts, 
the  first  part  delivers  characters  from  REPLACE  expansions  and 
the  second  part  delivers  characters  from  source  lines. 

When  expanding  macros  it  is  possible  to  be  nested  inside 
several  macro  expansions  and  several  parameter  expansions 
the  necessary  detail  is  part  1. 

When  handling  source  lines,  characters  are  created  to 
simulate  the  linear  input  format  — created  but  undelivered 
characters  are  saved  in  TYPEjCHAR  using  STACK_RETURN  CHAR . 
Characters  can  come  from  the  M line,  the  S line,  or  the  E line. 
After  trying  them  in  turn,  get  some  more  input  via  BUILD_XSCRIPTS . 


BUILD  X'SCRIPTS  — 408400 
STACK  — 405300 
CHOP  — 403900 


BUILD  XSCRIPTS  advances  to  the  next  non-blank  in  the 
M line,  accumulating  a compressed  exponent  in  E_STACK  and 
compressed  subscript  string  in  S_STACK. 

STACK  is  called  from  BUILD_XSCPTS  with  argument  0 
for  exponent  and  1 for  subscript.  STACK  appends  the _ 
character  to  the  appropriate  S or  E STACK  unless  it  is 
a multiple  blank  in  which  case  it  just  counts  it. 

CHOP  advances  to  the  next  character  position. 
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GET  GROUP 


395200 


The  principal  function  of  GET_GROUP  is  to  read  in  a 
single  E/M/S  group  and  linearize  it  for  easier  handling  by 
the  rest  of  STREAM. 

COMP(O)  is  called  to  handle  E lines, 

COMP(l)  is  called  to  handle  S lines. 

The  M line  is  simpler  and  so  is  handled  in  line. 

PROCESSjCOMMENT  is  called  to  handle  comments. 

The  linearized  exponents  and  subscripts  are  described 
in  COMP;  the  M line  is  already  linear.  The  three  lines  are 
returned- in  E_LINE,  M_LINE,  and  S_LINE. 


OUTPUT  GROUP  — 191800 


OUTPUT_GROUP  is  called  to  print  the  previous  group  as 
saved  by  SAVE_INPUT  on  the  secondary  listing.  It  is  usually 
called  by  GETjGROUP  but  is  also  called  once  by  PRINT_SUMMARY 
to  clean  up  at  the  end. 
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COMP 

--  392200 

' 1 

A 

1 : 

] 

SCAN  CARD 

— 389800 

k''j 

i'i 

\ ' 

READ  CARD 

— 385700 

1 

SAVE  INPUT 

— 187800 

1 

; 

NEXT  RECORD 

--  343800 

,1 

ORDER  OK 

— 345500 

'.j 

1 

Notice  that  the  declarations  for  E__INDICATOR  and 
S_INDICATOR  are  such  that  they  will  be  allocated  contiguously; 
thus,  when  subscripting  E_INDICATOR  with  values  greater  than 
127,  the  S INDICATOR  is  set. 


E_INDICATOR 

S_INDICATOR 

> 

1 • 


The  computations  POINT=SHL (TYPE,  IND_SHIFT)  E_INDICATOR (CP+POINT)  • 
have  this  effect  since  TYPE=0  for  E lines  and  1 for  S lines 
implies  that  POINT  will  be  0 for  E lines  and  128  for  S lines. 


A similar  procedure  is  followed  for  the  E_LINE/S_LINE  pair 
and  the  ECOUNT/SCOUNT  pair; 


E_LINE  = ELINE(O) 
S LINE  = ELINE(l) 


All  exponent  lines  are  linearly  compacted  into  E_LINE 
and  all  subscript  lines  are  linearly  compacted  into  S_LINE. 

E INDICATOR  and  S_INDICATOR  contain  the  line  number  of  the 

iTne  originally  containing  the  character  where  the  highest 

of  N exponent  lines  is  numbered  N and  the  number  is  decremented 

down  to  1 for  the  line  immediately  above  the  M line.  The 

first  subscript  line  is  numbered  1 and  this  number  is  incremented 

for  each  succeeding  subscript  line. 


f i 
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SCAN_CARD  is  called  by  COMP  to  set  up  E_LINE,  E_INDICATOR, 
S_LINE,  and  S_INDICATOR,  and  issues  error  messages  for  illegally 
overlapping  characters. 

READ_CARD  is  called  by  COMP  to  obtain  the  next  input  card 
via  NEXT_RECORD;  to  manage  EOF  indicators;  to  save  the  source 
lines  for  the  secondary  listing  via  SAVE_INPUT  and  to  count 
cards . 

COMP  itself  keeps  track  of  a change  in  the  type  of  the 
cards,  checks  their  order  via  ORDERjOK,  and  switches  the 
exponent  line  numbers  from  1...N  to  N,.  ..1. 

COMP  is  called  by  GET_GROUP  with  TYPE=0  for  E lines  and 
TYPE=1  for  S lines. 


PROCESS_COMMENT  --  356500 
PRINT_COMMENT  — 357200 
D TOKEN  — 354900 


PROCESS_COMMENT  is  called  by  GET_GROUP  to  hande  C or  D 
cards.  C cards  are  scanned  for  toggles  which  are  set,  reset 
or  inverted  as  requested.  D cards  are  scanned  for  directives 
using  D_TOKEN  to  get  the  next  token  from  the  card. 

The  entire  processing  of  D card  directives  is  performed 
here  including  the  opening  of  an  INCLUDE  file  and  the  processing 
of  PROGRAM  directives  via  INTERPRET_ACCESS_FILE. 

Comments  and  directives  are  printed  on  the  secondary 
listing  via  PRINT_COMMENT . 
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INTERPRET_ACCESS_FILE 

ADVANCE_CP 

NEXT_TOKEN 

ACCESS_ERROR 

LOOKUP 

RESET  ACCESS  FLAG 


316800 

323100 

324800 

317600 

321600 

320700 


INTERPRET_ACCESS_FLAG  is  called  by  PROCESS_COMMENT  when 
a PROGRAM  directive  is  processed.  INTERPRET__ACCESS_FILE  reads 
and  processes  the  access  file  (unit  6) . 

ADVANCEjCP  is  used  to  increment  the  Card  Position  by  1, 
reading  a new  card  when  necessary  and  finally  setting  EOF_FLAG. 

The  function  NEXT  TOKEN  reads  the  input  out  of  S (CP)  using 
ADVANCE_CP  and  buTlds  tokens  returning  either  0 and  a token 
in  A_TOKEN  or  a delimiter  number. 

The  file  is  read  and  errors  are  reported  using  ACCESS_ERROR 
which  takes  an  error  message  number  and  a character  string  arguments 
to  be  printed.  When  an  identifier  is  read,  it  is  located  in 
the  symbol  table  using  the  function  LOOKUP  which  takes  an 
identifier  as  an  argument  and  returns  a symbol  table  pointer 
or  -1.  When  a symbol  to  be  accessed  is  located,  it's  access 
protection  is  turned  off  using  RESET_ACCESS_FLAG . Notice  that 
the  symbol  table  is  built  so  that  entries  for  a single  COMPOOL 
reside  in  successive  slots  enabling  the  easy  traversal  of  all 
entries  of  a COMPOOL. 
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4 . 3 The  Output  Writer 

Phase  1 generates  the  primary  source  listing.  This 
listing  is  indented,  underlined,  over lined,  bracketed, 
and  in  several  other  ways  reformatted.  The  items  to  be 
printed  are  stored  in  the  statement  stack  (see  data  descrip- 
tion of  GRAMMAR_FLAGS ) . They  are  actually  printed  when 
a new  line  point  (e.g.  end  of  statement)  occurs  or  when 
the  statement  stack  overflows.  It  is  the  sole  responsibility 
of  the  output  writer  to  lay  out  and  print  the  entire  primary 
source  listing. 

4.3.1  Local  Variables  of  the  Output  Writer 

BUILD_E 
BUJ.LD_E_IND 
BUILD_E_UND 
BUILD  M 


See  BUILD  S. 


BUILD  S 


BUILD_S_IND 
BUILD  S UND 


The  output  writer  constructs  an  entire 
E/M/3  group  before  printing  it.  All 
the  subscript  lines  are  positioned  in 
BUILD_S , exponent  lines  in  BUILD_E, 
and  the  M line  in  BUILD_M.  Since  the 
subscript  and  exponent  lines  are  multi- 
line  items,  the  line  number  for  each 
character  of  BUILD_S  is  indicated  in 
BUILD_S_IND  — similarly  BUILD_E_IND. 

Any  character  may  require  underlining  — 
this  is  indicated  in  BUILD_S_UND, 
BUILD__E_UND,  and  MJUNDERSCORE . If 
M_UNDERSCORE  is  not  empty  then 
M_UNDERSOCRE_NEEDED  is  true.  The  next 
character  position  in  each  line  is  indicated 
by  S_PTR,  E_PTR,  and  M_PTR.  These  pointers 
are  updated  properly  to  keep  in  step.  In 
particular,  on  calls  to  EXPAND,  M_PTR 
will  always  be  at  least  as  large  as  E_PTR 
and  S PTR. 


See  BUILD  S. 
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E_CHAR_PTR 
E_CHAR_PTR_MAX 
E LEVEL 


See  SAVE_S_C. 

See  SAVE_S_C . 

Index  of  E line  currently  being 
built  or  referenced. 


E_PTR  See  BUILD__S . 

ERRORCODE  Code  of  current  error  message  to  be 

printed,  extracted  from  SAVE_ERROR_MESSAGE  - 
used  as  key  for  retrieving  canned  message 
from  file  #5. 

EXP_END  See  SUB JEND . 

EXP_STAR'T  Sec  SUB_START. 

FINDjQNLY  Switch  ON  if  MATCH  is  not  to  zero  out 

the  parentheses  it  finds. 

IMBEDDING  Switch  ON  if  error  message  includes 

some  optional  text  to  be  inserted  into 
canned  message  (variable  ident.,  etc.). 

INCLUDE  COUNT  From  SRN_C0UNT(2)  - substitute  SRN 

during  include  file,  incremented  from 
SRN  on  1st  include  card. 

LABEL_END  If  there  are  any  labels,  points  to  colon 

on  last  label;  otherwise,  LABEL_START-1 . 

LABEL_START  Index  of  first  item  to  print  — if  there 

.are  any  labels,  they  start  here. 

LINE  FULL  Switch  ON  if  EXPAND  should  be  called 

to  dump  the  buffers. 

)See  SAVE_S_C.  M_CHAR_PTR  is  also  used 
to  index  REPLACE  text  in  MACRO_TEXT 
when  printing  REPLACE  definitions. 

M PTR See  BUILD  S. 


M_CHAR_PTR 
M CHAR  PTR 
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M UNDERSCORE 


M_UNDERSCORE_NEEDED 

MACRO_WRITTEN 

iyiAX_E_LEVEL 

MAX_S_LEVEL 

NEXT_CC 

PRNTERRWARN 


See  BUILD_S. 

See  BUILD_S. 

Switch  ON  if  a macro  name  was  written 
out  anywhere  in  the  statement. 

Number  of  E-lines  required  to  print 
part  of  statement  scanned  so  far. 

Number  of  S_lines  required  to  print 
part  of  statement  scanned  so  far. 

Carriage  control  character  for  next 
E/M/S  group , 

Switch  ON  if  error  overflow  warning 
has  never  been  printed  - turned  off 
so  message  only  printed  once* 


PTR 


Index  of  token  being  currently  processed. 


PTR_END 
PTR  START 


Parameter  #2  - index  of  last  token  in 
statement  STMT_STACK. 

Parameter  #1  - index  of  first  token  in 
statement  STMT_ STACK. 


S_CHAR_PTR 
S_CHAR_PTR_MAX 
S_LEVEL 
S PTR 


See  SAVE_S_C. 

See  SAVE_S_C. 

Index  of  S-line  being 
See  BUILD  S. 


built  or  referenced. 


SAVE_E_C  See  SAVE_S_C. 

SAVEjyiAX_E_LEVEL  ] On  statements  that  will  not  fit  on  one 

i line,  these  save  the  original  values  of 
SAVE_MAX_S_LEVEL  \ I4AX_E_LEVEL  and  MAX_S_LEVEL,  so  continuation 

' lines  will  be  in  the  same  format  — used 

to  restore  their  values  after  call  to  EXPAND 
. clears  them. 
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Character  strings  in  HAL  are  limited 
to  255  characters;  however,  when  single 
quotes  are  expanded  to  double  quotes  in 
ATTACH,  the  string  can  grow  to  more  than 
twice  that  length.  The  array  SAVE_S_C 
is  used  to  save  the  1 , 2 , or  3 character 
strings  necessary  for  a character  string 
in  the  subscript  and  SAVE_E_C  does  the  same 
for  exponents.  S_CHAR_PTR_MAX  is  the 
number  of  characters  in  the  SAVE_S_C  array 
and  S_CHARJPTR  is  the  current  character. 
Notice  that  the  low  order  eight  bits 
(i.e.  0-255)  is  a byte  count  and  the  next 
two  bits  select  the  array  component. 
E_CHAR_PTR_MAX  and  E_CHAR_PTR  perform  the 
same  functions  for  SAVE_E_C.  A similar 
procedure  is  followed  for  the  M line,  using 
M_CHAR_PTR_MAX  and  M_CHAR_PTR  but  there  is 
no  SAVE_M_C  because  the  M line  can  be 
taken  directly  out  of  C — the  string 
returned  by  ATTACH. 

SDL_INFO  First  6 characters  are  SRN  of  current 

~ Statement,  next  2 are  record  revision 

indicators  (only  present  if  SDLjOPTION 
is  ON) , last  8 is  change  authorization 
from  file  #5. 

SEVERITY  Of  error,  as  retrieved  from  file  #5. 

SPACE_NEEDED  Set  by  ATTACH  to  number  of  blanks  required 

in  front  of  the  token  it  just  returned.  It 
is  always  either  0 or  1. 

SUB_END  Index  in  statement  stack 
of  last  token  of  sub- 
script. 

SUB_START  Index  in  statement  stack 
of  first  subscript 
token. 

UNDER_LINE  Buffer  for  underscore  that  will  overprint 

E or  S-line  for  macro  indication. 

UNDERLINING  Switch  ON  if  UNDER_LINE  contains  anything 

to  be  printed. 


! Subscript  runs  between 
I these  two — both  are 
I vectors,  with  one  entry 
for  each  possible  level  — - 
indexed  by  S_LEVEL . See 
GRAI4MAR  FLAGS. 


SAVE  S C 
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4.3.2  Global  Variables  Referenced  by  the  Output  Writer 


BCD  PTR  See  GRAMMAR  FLAGS. 


C 

CHAR_OP 

CHARACTER  STRING 


Temporary  character  string  vector  - 
ATTACH  returns  token  names  here. 

The  overpunches  used  in  character  literals 
to  cause  translation  to  alternate  character 
set  - corresponds  to  prefix  of  ^ or  ^<r. 

See  global  definitions  — TOKEN. 


COMMENT_COUNT 

COMPILING 


CURRENT  SCOPE 


DOLLAR 

DOT_TOKEN 

DOUBLE 

DUMP  MACRO  LIST 


■ ! ■ 

ERROR  COUNT 


ESCAPE 


EXPONENTIATE 

FUNC_FLAG 


Number  of  characters  of  comments  associated 
with  this  statement  (limit  is  255) . 

Switch  ON  while  compilation  is  continuing 
normally  — turned  OFF  to  indicate  fatal 
error  — execution  will  be  halted  in 
COMPILATION_LOOP . 

Name  of  the  block  actually  being  read  by 
STREAM. 

See  global  definitions  — TOKEN. 

See  global  definitions  — TOKEN. 

Carriage  control  character  to  cause  double- 
spacing. 

Set  by  MACRO_TEXT_DUMP  when  a printing 
of  the  REPLACE  texts  rather  than  the  current 
line  is  required  from  the  output  writer. 

Number  of  errors  accumulated  during  compila- 
tion . 

Escape  character  for  I/O  of  non-HAL/S 
characters. 

See  global  definitions  --TOKEN. 

See  GRAMMAR  FLAGS. 
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>11^ 


GPvAMMAR  FLAGS 


The  statement  stack  is  used  to  store  up 
a source  statement  before  printing.  The 
Stack  is  built  of  three  parallel  arrays 
as  indicated  in  the  diagram.  STMT_PTR 
points  to  the  top-most  entry  in  the  stack. 
Notice  that  the  actual  character  strings 
are  stored  in  SAVE_BCD.  TOKEN_FLAGS  simply 
contains  an  index  into  SAVE_BCD.  BCD_PTR 
points  to  the  last  entry  in  SAVE_BCD.“  In  the 
general  case,  some  of  the  material  in  the 
stack  has  been  printed  and  LAST_WRITE  points 
to  the  first  unprinted  item. 

A Statement  Stack  Item: 


s^e 


<3 

It 


token  code 


.16 


STMT  STACK 


a 


tj 


1^  j.6_ 


if  S' 
PS 


^ I 


I; 


/S| 


s 

V 

i- 

o 

c 


>4;  I 

Si . 


18  4 2 1 


8 4 2 1 


7 6 


1.J.6 


TOKEN  FLAGS 


GRAMMAR  FLAGS 


In  order  to  associate  items  in  the  parser's 
stack  with  their  entries  in  the  statement 
stack,  the  parser  maintains  STACK  PTR  entries. 
STACK_PTR  (parser  stack  pointer)  points  to 
the  element's  entry  in  the  statement  stack. 


GRAMT4AR  FLAGS  values 

0042 
0428 
0577 
0671 

0687 

0688 
0786 


ATTR_BEGIN_FLAG 

FUNC_FLAG 

INLINE_FLAG 

LABEL_FLAG 

LEFT_BRACE_FLAG 

LEFT_BRACKET_FLAG 

MACRO  ARG  FLAG 


0976  PRINT_FLAG 
0978  PRINT  FLAG  OFF 


Token  is  a function  call . 

Token  is  an  inline  function. 

Token  is  a label. 

Preceed  token  by  ' { ' on  output. 

Proceed  token  by  ' [ ' on  output. 

Token  is  an  argument  to  a macro. 

Token  should  be  printed. 

-iPRINT_FLAG  - — Used  to  turn  off 
PRINT  FLAG. 
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1047  RIGHT_BRACE__FLAG  Append  after  token  on  output. 

1048  RIGHT_BRACKET_FLAG  Append  ” ] " after  token  on  output. 

1160  STMT  END  FLAG  Final  token  in  statement. 
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INCLUDE  CHAR 


INCLUDE  END 


INCLUDING 


INDENT  LEVEL 


INFORMATION 


INLINE  FLAG 


INLINE  INDENT 


INLINE  INDENT  RESET 


LABEL  COUNT 


LABEL  FLAG 


LAST 


LAST  SPACE 


LAST  WRITE 


LEFT  BRACE  FLAG 


LEFT  BRACKET  FLAG 


LEFT  PAREN 


LINE  LIM 


LINE  MAX 


Character  printed  on  the  listing 
next  to  the  statement  number  if  the 
source  was  read  from  an  include 
file  - otherwise  blank. 


Switch  ON  if  just  read  EOF  on  include 
file. 


Switch  ON  if  reading  from  include  file. 


Column  number  of  current  left  margin 
indention. 


Information  to  be  printed  with  SAVE_SCOPE 
to  the  right  of  the  source  statement  (DO 
CASE  numbers,  etc.). 


See  GRAMMAR  FLAGS. 


Column  number  for  indention  of  current 
inline  function. 


Used  to  restore  INDENT_LEVEL  to  value  it 
had  before  interruption  by  inline  function. 


Number  of  labels  on  current  statement 
(each  is  two  tokens  — label  and  :). 


See  GRAMMAR  FLAGS. 


The  number  of  errors  in  the  current 
statement. 


Usually  the  value  of  post  spacing 
on  last  token  - may  be  altered  in  special 
cases . 


See  GRAMMAR  FLAGS. 


See  global  definitions  — TOKEN. 


Number  of  lines  in  listing  page  as  read 
from  JCL  LIST  = option . 


This  is  usually  LINE_LIM  — it  is  set  to 
0 to  force  a page  eject. 


4-57 


INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  - (617)  661-1840 


MAC_NUM 

MACRO_ARG_FLAG 

MACRO_INDEX 

MACRO_TEXT 

MAJ_STRUC 

MAX_SEVERITY 

OUT  PREV  ERROR 


Symbol  table  pointer  for  the  last 
REPLACE  name  defined. 

See  GRAMMAR_FLAGS . 

The  number  of  REPLACE  texts  that  have 
been  defined  in  this  compilation  unit. 

See  SCAN . 

See  symbol  table  — SYT_FLAGS. 

Maximum  SEVERITY  of  errors  found  so  far 
in  program. 

Statement  number  where  last  error  message 
was  printed. 


OVER_PUNCH_TYPE (token)  Is  the  overpunch  character  to  apply  (bit 

char”,",  vector  structure  "+",  matrix  "*"  ) 


PADl 

PAD  2 
PAGE 

PAGE^THROWN 

PLUS 

PREVIOUS_ERROR 

PRINT_FLAG 
PRINT  FLAG  OFF 


Blank  field  the  width  of  the  statement 
number  info  on  the  M-line  - used  to  pad 
S and  E lines  on  the  left. 

As  PADl , plus  space  for  line  type  and  VBAR  - 
used  to  pad  underscore  lines  on  the  left. 

Carriage  control  character  to  cause  page 
eject. 

Switch  ON  if  page  eject  just  done  - 
used  to  reduce  multiple  paging  to  a 
single  eject. 

Carriage  control  character  to  enable  over- 
printing of  underscore  characters. 

Set  to  STMT_NUM  at  the  time  an  error  is 
detected  and  used  to  set  OUT_PREV_ERROR. 

See  GRAMMAR_FLAGS . 

See  GRAMMAR  FLAGS. 
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RECOVERING 


REPLACE  TEXT 


RIGHT  BRACE  FLAG 


RIGHT  BRACKET  FLAG 


RT  PAREN 


SAVE  BCD 


SAVE  COMMENT 


SAVE  ERROR  MESSAGE 


SAVE  LINE  #(I) 


SAVE  SCOPE 


SAVE  SEVERITY (I) 


SAVE  STACK  DUMP 


SCALAR  TYPE 


SDL  OPTION 


SPACE  FLAGS (token) 


Set  by  RECOVER  - overrides  PRINT_FLAG_OFF 
to  force  printing  of  all  output  stacks. 


See  global  definitions  — TOKEN. 


See  GRAMMAR  FLAGS. 


See  GRAMMAR  FLAGS. 


See  global  definitions  — TOKEN. 


See  GRAMMAR  FLAGS. 


Text  of  conunent  to  be  printed  with  this 
statement. 


Stack  of  error  messages  for  this  statement. 
Each  entry  is  a character  string  containing 
an  eight  character  code  followed  optionally 
by  text  to  be  imbedded. 


Is  the  number  of  the  line  containing  the 
ith  error. 


Name  of  the  block  to  which  the  current 
statement  belongs.  Required  because 
CURRENT_SCOPE  may  be  updated  before  printing 
some  material  accumulated  in  the  older 
scope. 


Is  the  SEVERITY  of  the  I^  error  message. 


Array  of  formatted  lines  corresponding 
to  dump  of  parse  stack. 


See  symbol  table  — SYT  TYPE. 


Switch  ON  if  printing  extra  SDL  info 
(SRN,  change  authorization  field,  record 
revision  indicator)  on  listing;  OFF  if 
NOSDL  option  specified. 


Specifies  the  pre  and  post  spacing  for 
token.  The  pre-spacing  is  the  high  order 
four  bits  and  the  post- spacing  the  low 
order  four  bits.  Since  spacing  is  done 
one  way  on  the  M line  and  a different  way 
on  E and  S lines, 


SPACE_FLAGS ( token  + number  of  tokens) 
is  the  spacing  for  E and  S lines. 
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Pre/Post  Codes; 


i 


1 

! 


SQUEEZING 


SRN 

SRN_COUNT 

SRN_PRESENT 

STACK_DUMP__PTR 

STACK_DUMPED 

STACK_PTR 

STATEMENT_SEVERITY 

STMT__END_FLAG 

STMTJSIUM 

STMT_PTR 

STMT_STACK 

STRUC_TOKEN 

SYT  LINKl 


0 - always  wants  a space,  if  not  over- 

ridden by  the  other  token 

1 - only  want  a space  if  the  other 

token  wants  one  too 

2 - never  wants  a space 

3 - always  gets  a space 

Switch  is  set  by  SAVE_TOKEN  when  it 
needs  more  space  to  save  the  current 
item.  In  this  case,  the  output  writer 
should  write  out  the  minimum  amount 
of  material  (one  E/M/S  group)  and 
return.  The  switch  is  cleared  by 
OUTPUTJWRITER . 

Statement  reference  number  and  additional 
SDL  info,  obtained  from  source  card  to  the 
right  of  the  text  area  (TEXT_LIMIT) . 

M-card  count  when  reading  from  include 
file  - indexed  in  such  a way  as  to  be  the 
card  number  of  the  current  token. 

Switch  ON  if  SRN  is  being  read  from  input 
cards. 


index  of  last  item  in  SAVE_STACK__DUMP  - 
= -1  if  empty. 

Switch  ON  if  STACK__DUMP  and  SAVE_DUMP  have 
just  filled  SAVE_STACK_DUMP . 


See  GRAMMAR_FLAGS. 

Maximum  SEVERITY  of  errors  in  this  statement. 

see  GRAMMAR_FLAGS . 

Line  number  of  current  statement. 

See  GRAMMAR_FLAGS . 

See  GRAMMAR_FLAGS . 

See  global  definitions  — TOKEN. 

See  symbol  table. 
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TOKEN_PLAGS 
TOO  MANY  ERRORS 


TRANS  OUT (char) 


TX (special  character) 
VBAR 


VOCAB_INDEX 
WAS  HERE 


XI 

X70 


See  GRAMMAR  FLAGS. 


Switch  ON  if  error  stack  was  filled 
up  - some  messages  may  not  have  been 
recorded. 


Yields  a 16  bit  description  of  char's 
printable  form.  The  low  order  byte  is 
the  character  to  print.  If  TRANS_OUT  is  zero, 
print  char  itself;  otherwise  the  high  order 
byte  indicates  the  number  of  escapes 
(0  1 escape,  1 ->  2 escapes)  . 


Is  the  TOKEN  code  for  the  character. 


A vertical  bar,  "|",  used  to  delimit  the 


listing  margins. 

See  procedure  SCAN  — identifiers. 


Used  only  by  PRINT_TEXT  to  print  2 
double  quote  marks  for  each  embedded  one. 


Blank  field  of  length  1. 
Blank  field  of  length  70. 
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'f 


i 


i 


4.3.3  Procedures  of  the  Output  Writer 


)F  THE 
POOR 

OUTPUTJWRITER  — 291000 
PRINT  TEXT  — 377500 


REPROBTJGffiM^  ' 

original  page  is 


OUTPUT_WRITER  is  the  entry  point  and  central  control 
of  the  output  writer  module.  It  assembles  and  prints  E/M/S 
groups  followed  by  error  messages. 

Set  up  LABEL  START  and  LABEL  END. 


Calculate  positioning  of  subscripts.  Use  MATCH  to  find 
and  eliminate  parentheses  around  subscripts,  then  if  the  sub- 
script is  a subscripted  expression,  restore  the  parenthesis. 

If  the  subscript  is  subscripted,  find  the  end  of  the  lowest 
subscript. 

Do  the  same  thing  for  superscripts. 

Now  that  an  entire  subscript  has  been  located,  divide 
it  up  for  multi-line  printing  using  SUB_START  (S_LEVEL)  and 
SUB_END  (S_LEVEL) . The  actual  character  string  to  be  printed 
is  built  in  BUILD_S  with  associated  indicators  in  BUILD_S_IND 
and  BUILD_S_UND.  The  character  strings  to  be  printed  including 
spacing  and  braces  and  brackets,  are  computed  by  ATTACH. 

S_LEVEL  is  incremented  for  each  $ and  decremented  when  the 
end  of  a subscript  is  reached. 

Do  the  same  thing  for  superscripts. 

BUILD_M  is  set  up  in  a similar  manner  without  the 
difficulties  of  multi-line  format.  Notice  that  the  text 
of  a REPLACE  statement  must  appear  on  the  M line  and  thus 
presents  a problem  only  here.  PRINT_TEXT  is  used  to  print 
the  macro  text  in  a straightforward  manner.  When  printing 
labels,  un-indent  far  enough  so  that  the  label  ends  just 
before  the  indentation  point. 

If  the  label  will  not  fit,  un-indent  to  the  left  margin 
and  print  the  labels  on  a separate  line. 

After  everything  has  been  built  and  overflowing  lines 
have  been  printed,  print  the  current  buffer  and  clean  up  all 
the  hanging  indicators  for  the  next  time  around. 

If  there  were  any  error  messages  pending,  print  them.  Notice 
that  the  error  message  text  must  be  read  in  from  an  auxiliary 
file  and  imbedded  text  must  be  inserted  instead  of  "??". 

If  DUMP_MACRO_LIST  is  set,  then  the  output  writer 
simply  prints  all  the  REPLACE_TEXTS.  It  starts  off  at  the 
beginning  of  all  the  texts,  PRINT_TEXT  prints  a single  text 
advancing  M_CHAR_PTR  to  the  end  of  the  text.  Then  increment 
M_CHAR_PTR  one  more  position  and  PRINT_TEXT  again. 
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i 


ATTACH  — 295400 
ADD  — 299300 


ATTACH  is  called  by  OUTPUT_WRITER  to  compute  the 
character  string  for  an  item  to  be  printed.  ATTACH  must 
compute  the  character  string,  the  pre-spacing,  the  enclosing, 
brackets  or  braces,  the  display  character  for  non-HAL 
characters , and  the  expansion  of  embedded  single  quotes 
in  character  strings.  Since  the  spacing  in  exponent/subscript 
lines  is  different  from  the  spacing  of  M lines,  OFFSET  is 
also  delivered  to  allow  proper  lookup  in  the  SPACE_FLAGS 
table. 

Formatting  character  string  tokens  can  be  complicated 
(see  data  description  of  SAVE_S_C) , so  a separate  procedure, 
ADD,  is  used  to  append  a character  to  the  existing  substring. 


INTERMETRICS 
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MATCH 


325800 


When  OUTPUT_WRI TER  is  scanning  subscripts  and  super- 

of  parenthesized  sub/superscripts 
parenthesis.  It  then  replaces  the  parenthesis 
If  they  are  necessary.  The  search  and  elimination  is  performed 
by  MATCH  which  takes  as  argument  the  index  of  the  left  paren’ 
and  returns  as  value  the  index  of  the  right  paren.  If 
is  set,  the  elimination  is  suppressed. 


CHECK_FOR_FUNC  — 329500 
SKIP_REPL  — 328500 


If  a sub/superscript  is  not  parenthesized,  then 
OUTPUT_WRITER  locates  the  end  of  it  via  CHECK  FOR  FUNC. 

This  searches  for  the  end  of  a function  call  Tpossibly 
subscripted  with  nested  calls) , skips  macros  via  SKIP  REPL, 
and  locates  the  end  of  qualified  structure  names.  CHECK  FOR  FUNC 
receives  a starting  point  as  argument  and  returns  the  location 
of  the  end  as  value. 


INTERMETRICS  INCORPORATED  • 701 
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EXPAND  — 305700 

COMMENT  BRACKET  — 306900 


EXPAND  is  called  by  OUTPTJTJWRITER  to  actually  print 
an  E/M/S  group  which  has  been  formatted  in  BUILD_E, 

BUILD_M,  and  BUILD^S*  If  the  groUp  contains  an  end  of 
statement  then  EXPAND  will  add  to  it  any  accumulated  comments. 
Comments  are  printed  in  the  M line  if  they  fit.  If  the 
comment  will  not  fit  and  the  statement  is  short,  it  is 
printed  on  the  M and  S lines;  if  the  statement  is  long,  it 
is  printed  after  the  statement.  Comments  are  inserted  into 
the  output  string  by  COMMENT_BRACKET.  which  takes  a string 
and  a position  within  the  string  and  modifies  the  argument 
string  using  the  BYTE  pseudo- function. 
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4 . 4 The  Semantic  Routines 


The  HAL/S  compilers  handle  semantics  in  a very  standard 
manner.  Immediately  before  performing  a reduction,  the  parser 
calls  SYNTHESIZE.  SYNTHESIZE  is  an  enormous  CASE  statement 
on  the  production  number. 

We  have  broken  up  the  entire  grammar  into  six  sections. 
The  individual  productions  are  covered  as  follows: 


1-3 

4.4.7 

4-32 

4.4.5 

33-81 

4.4.6 

82-135 

4.4.5 

136-176 

4.4.6 

177-178 

4.4.5 

179-180 

4.4.6 

181-192 

4.4.5 

193-205 

4.4.4 

206-208 

4.4.5 

209-249 

4.4.4 

250-272 

4.4.5 

273-288 

4.4.6 

289-292 

4.4.7 

293-328 

4.4.2 

329-425 

4.4.3 

426-428 

4.4.7 

429-449 

4.4.6 

When  working  through  semantic  routines  of  this  nature, 
it  is  important  to  figure  out  the  reduction  sequence.  We 
include  here  the  complete  reduction  sequence  for  a meaningless 
program  which  has  a large  collection  of  constructs  in  it. 
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T 


C|  DECLAfiiTIQII  OP  A PROGBAN 


ceAuction  304 


reAuctioa  305 
reduction  307 


reduction  301 
reduction  298 

Ml  SIMPLE; 
Ml  PBOGKAH; 


scanner  returns  tokei  nunbec  98 
scanner  returns  tokeii  nuaber  16 

scanner  returns  token  nunber  107 


scanner  returns  token  nuaber  10 


C|  DECLARATION  WITH  IMPLIED  TYPE 


scanner  returns  token  number  1 03 
scanner  returns  token  number  131 
scanner  returns  token  number  10 

reduction  358  ^ 

reduction  356 

reduction  342 

reduction  340 

reduction  339 

M|  DECLARE  A; 

reduction  329 
reduction  345 

Cl  standard:  form  declaration: 


scanner 

returns 

token 

number 

1 0.3 

scanner 

returns 

token 

number 

131 

scanner 

returns 

token 

number 

105 

reduct  ion 

3:58 

reduction 

385 

scanner 

returns 

tpken 

number 

to 
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reductioB  362 
reduction  376 
reduction  370 
reduction  362 
reduction  357 
reduction  3^2 
reduction  340 
reduction  339 


reduction 

reduction 


Ml 


D2CLABE  B INTEGE8; 


329 

346 


C|  DECLAEAIION  WITH  FACTOHED  TY?E 


reduction'  335 


reduction  382 
reduction  376 
reduction  370 
reduction  362 


reduction  358 
reduction  356 
reduction  342 
reduction  341 
reduction  339 


reduction  329 
reduction  346 


scanner  returns  teicen  nuaber  103 
scanner  returns  token  nuaber  105 


scanner  returns  token,  number  14 


scanner  returns  tpken  nuaber  131 
scanner  returns  token  number  10 


Ml 


DECLARE  INTEGER,  C; 


C|  AN  EQUATE  DECLABATION 


scanner 

scanner 

scanner 

scanner 

scanner 


returns 

returns 

returns 

returns 

returns 


token 

token 

token 

token 

token 


number 

number 

number 

number 

number 


8 2 
1 12 
131 
30 
126 


reduction  222 


scanner  returns  t|»kea  nuaber  10 


■4. 
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redttctipn  230 
reduction  216 
reduction  193 
reduction  332 


reduction  346 


M|  EQUATE  BXTEfiNAL  X T0  A; 


C|  A STEUCTOE'E  DECLABATION 


! 

i 

i 

scanner 

returns 

token 

n uabe  r 

123 

scanner 

returns 

token 

nunber 

131 

scanner 

returns 

tokeqj 

nunber 

16 

; 

scanner 

returns 

token 

nunber 

99 

ceiucrion 

1 

348 

Ml 

STRUCTURE  Q: 

scanner 

returns 

token 

nunber 

131 

scanner 

returns 

token 

number 

14 

reduct  ion 

358 

reduction 

356 

scanner 

returns 

token 

n ua  ber 

99 

reduction 

350 

Ml 

1 Q1» 

t ■ ' 

...i 



_ . . 

EEAD  TOKEN  131 
HEAD  TOKEN  14 


reduction  358 
reduction  356 


reduction  350 


READ  TOKEN  99 


Ml 


2 Q2, 


READ  TOKEN  131 
READ  TOKEN  10 


O' 


reduction  358 
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redaction  356 
red  act  ion  351 
reduction  347 


Hi  2 Q3; 

reducrion  331 
reduction  346 

C|  DSCLAHE  A SIMPLE  STRUCTURE  VARIABLE 


,--j - — t. 

READ  TOKEN  103 
READ  TOKEN  131 
READ  TOKEN  139 


reduction  358 


READ  TOKEN  12 
READ  TOKEN  123 
READ  TOKEN  10 


reduction  353 
reduction  352 
reduction  373 
reduction  370 
reduction  362 
reduction  357 
reduction  342 
reduction  340 
reduction  339 


M|  DECLARE  QQ  Q-STHUCTURE; 


reduction  329 
reduction  346 

Cl  DECLARE  A STRUCTURE  VARIABLE  RITH  COPIES 


HEAD  TOKEN  103 
READ  TOKEN  131 
READ  TOKEN  139 

reduction  358 

READ  TOKEN  12 
READ  TOKEN  123 
READ  TOKEN  3 

reduction  355 

READ  TOKEN  99 

reduction  425 
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redaction  19 


ITEAD  TOKEN  9 


reduction 

reduction 

reduction 

reduction 

reduction 

reduction 

reduction 

reduction 

reduction 


31 
15 
1 1 

9 

4 

391 

354 

352 

373 


READ  TOKEN  10 


redact  ion 
reduction 
reduction 
reducti on 
reduction 
reduction 


370 

362 

357 

342 

340 

339 


Ml 


DECLARE  Q_COPIES  Q-STRUCTOS'E  (3^  ; 


reduction  329 
reduction  346 


C|  DECLARE  A ONE  DIMENSIONAL  ARRAY 


READ  TOKEN  103 
READ  TOKEN  131 
READ  TOKEN  64 


reduction 

358 

reduction 

368 

reduct  ion 

4 25 

reduction 

19 

reduction 

31 

reduction 

15 

red  uct ion 

1 1 

redact  ion 

9 

red  uct ion 

4 

reduction 

391 

red  action 

363 

READ  TOKEN  3 


R’EAD  TOKEN  99 


READ  TOKEN  9 
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$ 


ii 


4 

f 

f 

i 


4 

■ ’S 


READ  TOKEN  10 


reduct  ion 
reduction 
reduction 
reduction 
reduction 


361 

357 

342 

340 

339 


Ml 


EICLAiJE  ONE  ARRAY  (5); 


reduction  329 
reduction  346 


C|.  DECLARE  A TWO  DIMENSIONAL  ARRAY 


reduction  358 


reduction  3 68 


rediuction  4 24 
reduction  19 


reduction  31 
reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  391 
reduction  369 


READ  TOKEN  103 
READ  TOKEN  131 
READ  TOKEN  64 


READ  TOKEN  3 


HEAD  TOKEN  136 


READ  TOKEN  14 


reduct  ion 
reduction 


4 25 
19 


READ  TOKEN  99 


READ  TOKEN  9 


reduction 
reduction 
reduct  ion 
reduction 
reduction 
red  uct ion 
red  uct ion 


31 
15 
1 1 
9 
4 

391 

3 63 
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»*£AD  TOKEN  10 


'*»cag'Sgy,ae«iaas.i^:x4i^ya.^^ 


reduction  361 
reduction  357 
reduction  342 
reduction  340 
reduction  339 


Ml 


reduction  329 
reduction  346 


DECLARE  THO  ARR  AY  (5,  5)  ; 


C|  A NO  ARGUflSNT  FUNCTION  DECLAH'ATION 


reduction  291 


reduction  304 


R'EAD  TOKEN  98 


READ  TOKEN  16 


KEAD  TOKEN  113 


i 


reduction  305 
reduct ion  3 16 


reduction  386 


reduct ion  : 382 
reduct ion  : 376 
reduction  319 
reduction  313 
reduction  301 
reduction  298 


READ  TOKEN  89 


READ  TOKEN  10 


Ml  FONC; 

Ml  function:  SCALAR; 


reduct ion  290 


red uct ion  424 
reduction  19 


R'EAD  TOKEN  88 


READ  TOKEN  136 
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1- 


S3trfj»»I36^Si'5E'£a5&^«J  =5  -?&4»ia3--_  'e.cff 


READ  TOKEN  10 


reduction  31 
reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  181 
reduction  53 
reduction  36 


Ml 


RETURN  1; 


reduction  38 
reduction  292 


reduction  4 27 


reduction  289 


READ  TOKEN  65 
READ  TOKEN  98 


READ  TOKEN  10 


reduction  39 
reduction  292 


Kj  CLOSE  FUliC; 


C|.  JUST  A LABEL 


reduction  304 


reduction  47 
reduction  40 
reduction  36 


M|.  LBL: 

Ml  ; 


reduction  38 
reduction  292 


READ  TOKE_N__aa_^ 
READ  TOKEN  16 


READ  TOKEN  10 


C|  A SIMPLE  ARITHMETIC  EXPRESSION 


READ  TOKEN  126 
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^ , * 


red'uctioa  222 


READ  TOKEN  19 


reduction  230 
reduction  216 
reduction  193 


redact  ion 
reduct  ion 


redact  ion 
reduct  ion 
redact  ion 
redact  ion, 
redact  ioa< 
reduction 
reduction 


reauct  Jion 
reduction 


red uct ion 
reduction 
redact  ion 
reduction 
redact  ion 
reduction 
reduct  ion 
reduction 
red action 


reduct  ion 
reduction 


248 

222 


2 30 
216 
27 
15 
1 1 
9 
4 


424 

19 


31 
15 
1 1 
9 
7 

181 

.136 

41 

36 


38 

292 


READ  TOKEN  126 


READ  TOKEN  4 


R'EAD  TOKEN  136 


READ  TOKEN  10 


Ml 


A = A ♦ 1 ; 


Cj  A ONE  DXMENSIONAL  SUBSCRIPT 

READ  TOKEN  126 

reduction  222 

READ  TOKEN  7 

reduction!  249 
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ffEAO  TOKEN  136 

reductioa  424 
reduction  228 
reduction  216 
reduction  193 

READ  TOKEN  19 
READ  TOKEN  126 

reduction  248 
reduction  222 

READ  TOKEN  7 

reduction  249  ' 

B'EAD  TOKEN  136 

reduction  4 24 
reduction  228 
reduction  216 
reduction  27 

READ  TOKEN  10 


reduction  424 
reduction  19 


reduction  31 
reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  243 
reduction  238 
reduction  237 
reduction  235 


reduction  425 
reduction  19 


reduct  ion 
reduction 
reduction 
reduction 
reduction 
reduction 
reduction 
reduction 
reduction 
reduct  ion 
reduction 


reduction  248 
reduction  222 


READ  TOKEN  14 


R'EAD  TOKEN  99 


e'EAD  TOKEN  9 


HEAD  TOKEN  19 
HEAD  TOKEN  126 


reduction  249 


READ  TOKEN  7 


READ  TOKEN  3 
H'EAD  TOKEN  136 


reduction  231 
reduction  424 
reduction  19 


reduction  31 
reduction  15 
reduction  1 1 


H'SAD  TOKEN  14 
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xreductiiom  8 

reduction  4 
reduction  243 
reduction  238 
reduction  237 
reduction  235 


reduction  425 
reduction  19 


reduction  3 1 
reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  243 
reduction  2 38 
reduction  237 
reduction  226 
reduction  216 
reduction  27 


reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  181 
reduction  ;136 
reduction  41 
reduction  36 

Ml 

Si 

reduction  38 
reduction  292 


BEAD  TOKEN  99 


B'EAD  TOKEN  9 


READ  TOKEN  10 


THO  = TBO  ; 

1,1 


C|  A SIMPLE  QUALIFIED  STRDCTOBE  fiEFESENCE 
1 * 


reduction  220 


reduction  221 


HEAD  TOKEN  135 


HEAD  TOKEN  1 
READ  TOKEN  135 


BEAD  TOKEN  19 
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reduction  230 
reduction  215 
reduction  194 


IfEAD  TOKEH  135 


reduction  248 
reduction  220 


reduction  221 


BEAD  TOKEN  1 
BEAD  TOKEN  135 


reduction  230 
reduction  215 
reduction  186 
reduction  184 
reduction  136 
reduction  41 
reduction  36 


SI 

Ml 


BEAD  TOKEN  10 


♦ ♦ 

uy-Qi  = QQ.Q1; 


reduction  38 
reduction  292 

C|  A SUBSCfflPTED  STfiOCTORE  R'EFER'ENCE 


reduction  220 


reduction  249 


reduction  424 
reduction  228 
reduction  215 
reduction  194 


BEAD  TOKEN  13.5 


B'EAD  TOKEN  7 


READ  TOKEN  136 


READ  TOKEN  19 
READ  TOKEN  135 


reduction  248 
reduction  220 

BEAD  TOKEN  7 

L 
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reduction  249 


reduction  425 
reduction  228 
reduction  215 
reduction  186 
reduction  184 
reduction  136 


reduction  41 
reduction  36 


reduction  38 
reduction  292 


ffSAD  TOKEN  99 


BEAD  TOKEN  10 


Q COPIES  = Q COPIES  ; 

1 2 


C|.  A SOBSCHIETED  MINOR  STRUCTURE  HEFEREllCE 


reduction  220 


reduction  221 


reduction  249 


reduction  424 
reduction  228 
reduction  215 
reduction  194 


reduction  248 
reduction  220 


reduction  221 


READ  TOKEN  135 


READ  TOKEN  1 
HEAD  TOKEN  135 


READ  TOKEN  7 


READ  TOKEN  136 


READ. TOKEN  19 
BEAD  TOKEN  135 


BEAD  TOKEN  1 
READ  TOKEN  135 
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READ  TOKEN  7 


reduction  249 


READ  TOKEN  99 


reduct  ion  4; 2 5 
reduction  228 
reduction  215 
reduction  186 
reduction  184 
reduction  136 


BEAD  TOKEN  10 


reduction  41 
reduction  36 


El  ♦ ♦ 

Ml  Q_C0PIES-C1  = Q_C0PIES.Q1  ; 
SI  1 1 


reduction  38 
reduction  292 


C|  A BUILT-IN  FUNCTION  CALL 


redaction  222 


reduction  230 
reduction  216 
reduction  193 


reduction  248 
reduction  21 


reduction  222 


reduction  230 
reduction  216 
reduction  27 
reduction  15 
reduction  11 


READ  TOKEN  126 


READ  TOKEN  19 


R'EAD  TOKEN  130 


READ  TOKEN  3 
READ  TOKEN  126 


READ  TOKEN  9 
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ireduction  9 
reduct  ion  4 
reduction  181 
reduction  191 
reduction  177 
reduction  28 


reduction  31 
reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  181 
reduction  136 
reduction  41 
reduction  36 


reduction  38 
reduction  292 


BEAD  TOKEN  10 


Ml 


A = SIN  (fA)  ; 


Cl  DEFINE  A THO  AEGUMENT  FONCTIOiN 


reduction  304 


reduction  305 
reduction  316 


reduction  325 


reduction  326 


HEAD  TOKEN  98 
HEAD  TOKEN  16 


HEAD  TOKEN  113 


BEAD  TOKEN  3 


HEAD  TOKEN  131 
READ  TOKEN  14 


BEAD  TOKEN  131 
R'EAD  TOKEN  9 


reduction  324 


reduction  386 


R'EAD  TOKEN  89 


HEAD  TOKEN  10 
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reduction 

382 

reduction 

376 

reduction 

320 

reduction 

313 

reduction 

301 

reduction 

298 

111 

FDNC2: 

HI 

FUNCTION (AKG1, 

ARG2) 

SCALAR 

BEAD 

TOKEN 

103 

BEAD 

TOKEN 

89 

reduction 

386 

B'EAD 

TOKEN 

14 

reduction 

382 

reduction 

376 

reduction 

370 

reduction 

362 

READ 

TOKEN 

131 

HEAD 

TOKEN 

14 

reduct ion 

358 

reduction 

356 

reduction 

342 

reductiou 

344 

Ml 

DECLARE  SCALAR, 

reduction  258 
reduction  356 
reduction  3:43 
reduction  341 
reducrion  339 


reduction  329 
reduction  345 


reduction  291 


Ml 


HEAD  TOKEN  131 
SEAP  TOKEN  10 


ARGT,  AB62; 


BEAD  TOKEN  88 


reduction  222 
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BEAD  TOKEN  <» 


reduction  230 
reduction  216 
reduction  27 
reductioif^  15 
reduction  11 
reduction  9 
reduction  4 


reduction  222 


H'EAD  TOKEN  126 


READ  TOKEN  10 


reduct 

reduct 

reduct 

reduct 

reduct 

reduct 

reduct 

reduct 

reduct 

reduct 


ion 

ion 

ion 

ion 

ion 

ion 

ion 

ion 

ion 

ion 


230 

216 

27 

15 

1 1 

9 

7 

181 

53 

36 


Ml. 


RETORN  ARGI  ♦ ARG2; 


reduction  38 
reduction  292 


reduction  427 


reduction  289 


reduction  39 
reduction  292 


READ  TOKEN  65 
READ  TOKEN  98 


READ  TOKEN  10 


Ml  CLOSE  FUNC2; 


Cj  CALL  A TWO  ARGUMENT  FUNCTION 


reduction  22i 


reduction  230 


READ  TOKEN  126 


READ  TOKEN  19 
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reduction  216 
reduction  193 


reduction  248 
reduction  21 


reduction  222 


reduct, 
reduct : 
reduct, 
red.uct: 
reduct : 
red  uct: 
reduct: 
reduct: 
red  uct: 
reduct; 


reduction  222 


reduct icn 
reduction 
reduction 
reduct ion 
reduction 
reduction 
reduct  ion 
reduction 
reduction 
reduction 
reduction 


reduction  31 
reduction  15 
reduction  11 
reduction  9 
reduction  4 
reduction  18’ 
reduction  1.3f 
reduction  41 
reduction  36 


BEAD  TOKEN  130 


READ  TOKEN  3 
HEAD  TOKEN  126 


HEAD  TOKEN  14 


HEAD  TOKEN  126 


READ  TOKEN  9 


READ  TOKEN  10 


4^85 


INTERMETRICS  INCORPORATED  ‘ 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


reduction  38 
reduction  292 


k = P0NC2  (A , A)  ; 


C|  CALL  A NO  ABGUHENT  FONCTION 


READ  TOKEN  12b 


reduction  222 


reducrion  230 
reduction  216 
reduction  193 


reduction  248 
reduction  222 


. READ  TOKEN  19 


READ  TOKEN  141 


READ  TOKEN  10 


reduct 
reduct 
reduct 
reduct 
reduct 
reduct 
reduct 
reduct 
reduct 
red uct 
red  uc  t 


ion  230 
ion  211 
ion  29 
ion  1 5 
ion  11 
ion  9 
ion  4 
ion  18l 
ion  136 
ion  4 1 
ion  36 


reduction  38 
reduction  292 


A = FUNC; 


Cl  CLOSE  A PROGRAM 


reduction  427 


READ  TOKEN  65 
READ  TOKEN’  98 


READ  TOKEN  10 


reduction  289 
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4.4.1  Global  Variables  Accessed  by  the  Semantic  Routines 


ACCESS_FLAG 
ACCESS_FOUND 
ALT_PCARG#  (i) 

ARRAY_SUB_COUNT 

ARRAYNESS_STACK 

AS_PTR 

AS  S IGN_ARG_L  1ST 
ASSIGN_CONTEXT 
ASSIGN  TYPE 


See  symbol  table  — SYT_FLAGS . 

See  STREAM. 

If  the  number  of  argiaments  in  a % macro 
does  not  match  PCARG#(i),  use  ALT_PCARG# (i) 

LITERALLY  VAL_P (PTR (MP) ) initialized  to  -1. 
Reset  to  SUBjCOUNT  - STRUCTURE_SUB_COUNT 
on  finding  a in  a subscript. 

See  VAR_ARRAYNESS . 

See  VAR_ARRAYNESS . 

True  when  processing  %COPY  to  inhibit 
lack  group  checking. 

See  CONTEXT  in  SCAN. 


Specifies  possible  legal  type  transforma- 
tion. 


(r-nuTl 

0 

0 

0 

0 

IT" 

IT 

ir 

U" 

IT 

IT 

X 

IT 

u 

~u 

1-bit 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

2 -char 

0 

0 

0 

0 

0 

1 

1 

0 

0 

1 

0 

1 

3 -mat 

0 

0 

0 

0 

0 

0 

0 

, 0 

1 

0 

0 

1 

4-vec 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

1 

5-seq 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

6-int 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

1 

7 -bore 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

8-iors 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

9-event 

0 

' 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10-struc 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

11-any 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

,11 


I 


ATOM#_FAULT 

ATOM#_LIM 

ATTOMS 


See  NEXT_ATOM#, 
See  NEXT_ATOM#, 
See  NEXT  ATOM#, 
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-• 


ATTR  FOUND 


ATTR_LOC 

ATTR_MASK 

ATTRIBUTES 


BI_ARG_TYPE  (bi 
BI  FLAGS 


BI  FUNC  FLAG 


INTERMETRICS  INCORPORATED 


Is  turned  off  after  finding  the  first 
<declaration>  of  a <declaration  list>. 

It  is  turned  on  if  SAVE_TOKEN  forces  an 
output  writer  call  and  after  the  second 
<declaration>.  It  is  used  by  SYNTHESIZE 
to  make  the  output  writer  line  up  declara- 
tions properly. 

Is  set  to  point  to  the  name  (in  the 
statement  stack)  being  declared  unless 
it  is  a template,  declaration  — it  is 
reset  by  SAVE_TOKEN  if  the  statement  stack 
overflows  forcing  an  output  writer  call. 

See  ATTRIBUTES. 

This  is  SYT_FLAGS  kind  of  information 
for  an  identifier  being  declared.  When 
an  attribute  is  found  it  becomes  illegal 
to  specify  that  attribute  again  and 
conceivably  several  others  (e.g.  DOUBLE 
outlaws  DOUBLE  and  SINGLE).  The  illegal 
attributes  are  accumulated  in  ATTR_MASK. 

info)  Specifies  the  type  of  argument  required. 

Notice  that  anything  that  can  be  converted 
to  this  type  is  acceptable;  consequently, 
ASSIGN_TYPE(BI_ARG_TYPE)  is  the  thing  to 
use  in  tests. 


TR 

SQ  1 

i/c 

number 

111 

4 

if  i/c  = 1,  then  function  has  special  proces- 
sing in  i/c  context  and  number 
selects  the  special  processing, 
if  SQ=1,  argument  must  be  square, 
if  TR=1,  result  has  dimensions  of  transpose 
of  argument. 

On  when  handling  built-in  function  in 
initial/constant  context. 
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BI  INFO 


BI_XREF(loc) 

BIT_LENGTH 
BLOCK_MODE (nest) 

BLOCK_SYTREF (nest) 
BU ILD ING_TEMPLATE 
CHAR_LENGTH 
CLASS 

CLOSE_BCD 

CMPL_MODE 

INTERMETRICS  INCORPORATED  • 701 


result 

number 

BI  ARG  TYPE 

type 

of  args 

pointer 

8 

8 

16 

If  the  function  takes  more  than  one  argument, 
pointer+1  points  to  entry  for  second  argu- 
ment, etc.  BI_^INFO(0)  is  a copy  of  BI_INFO 
(current  function) . 

For  loc  > 0,  serves  the  same  function  for 
built-in  functions  that  XREF  serves  for 
other  names.  BI_XREF(0)  is  set  true  when 
a cross  reference  is  built. 

Length  of  bit  string  specification  being 
processed. 

Type  of  block  at  nesting  level  nest. 

4 - PROG_MODE  = program; 

3 - CMPL_M0DE  = compool; 

5 - TASK_MODE  = task; 

6 - UPDATE JMODE  = update  block; 

2 - FUNC_MODE  = function  declaration; 

1 - PROCJMODE  = procedure  declaration; 

7 - INLINE_MODE  = inline  function. 

Symbol  table  pointer  for  name  of  block 
at  nesting  level  nest. 

On  when  building  template  from  a structure 
statement. 

Length  of  character  string  specification 
being  processed. 

Identifier  being  declared  is: 

0 - none  of  the  below, 

1 - procedure,  program,  task, 

2 - function. 

The  name  of  the  identifier  to  be  removed 
from  the  hash  table. 

See  BLOCK  MODE. 


REPEODtJCIBlLm  0)?  THB 

OBIGIHAIi  PAGE  IS  POOS 
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;4jr 


CONTEXT 
CUR_IC_BLK 
CURRENT_ARRAYNESS 
CURRENT_ATOM 
CURRENT_SCOPE 
DEF_BIT_LENGTH 
DEF_CHAR_LENGTH 
DEF_MAT_LENGTH 
DEF_VEC_LENGTH 
DELAY_CONTEXT_CHECK 

DO_CHAIN 

DO_INIT 

DO_INX 
DO  LEVEL 


See  SCAN . 

See  IC_LINE. 

See  VAR_ARRAYNESS . 

See  NEXT_ATOM# . 

The  name  associated  with  the  current  block. 


Default  values  for  the  length  if  the 
declaration  contains  an  illegal  or  un- 
specified value. 


On  when  processing  the  arguments  of  a % macro 
or  NAME  pseudo-function. 

See  DO_LEVEL. 

A flag  indicating  whether  accumulated 
initialization  should  be  transformed  to 
HALMAT. 

See  DO_LEVEL. 

Since  DO  groups  can  be  nested,  the  compiler 
must  maintain  a stack  for  all  "active" 

DO  groups.  The  stack  is  indexed  by  DO_LEVEL. 

DO_LOC  is  the  flow  number  of  the  instruction 
following  the  end  of  the  DO  group.  D0_L0C+1 
is  the  flow  number  of  the  repeat  point. 
DO_LOC(0)  counts  the  number  of  DO  groups 
encountered  after  the  DO  stack  overflowed 
so  that  proper  ‘processing  can  be  restored 
at  the  right  time. 

DO_INX  = 0 DO; 

1 for  discrete  DO  FOR; 

2 DO  CASE; 

3 DO  WHILE/UNTIL. 

DO_CHAIN  = symbol  table  pointer  for  first 
temporary  declared  in  the  group.  The  rest 
are  linked  by  the  SYT_LINK  field. 

DO_PARSE  = Points  to  the  parse  stack  position 
immediately  below  the  DO  keyword. 
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'A 


DO_LOC 

DO_PARSE 

EXT_P 

EXTERNAL 


FACTOR_FOUND 

FACTORED_IC_FND 

FACTORED_TYPE 

FACTORING 

FCN_ARG  (fcn_lv) 
FCN  LOG (fen  Iv) 


FCN  LV 


FCN  MODE(fcn_lv) 


See  DO_LEVEL. 
See  DO  LEVEL. 


See  PTR_TOP. 

Set  to  1 on  finding  definition  of 
level  and  reset  to  proper  mode  (e.g.  PROC_MODE, 
CMPL  MODE)  when  the  rest  of  the  information 
is  acquired. 


See  FACTORING. 

On  if  an  initial/constant  value  was 
encountered  while  FACTORING. 


Any  TYPE  information  accumulated  while 
FACTORING  is  copied  here.  Notice  that 
this  has  the  same  pseudo-array  structure 
as  TYPE. 


When  processing  a DECLARE  statement,  any- 
thing found  before  an  identifier  is  a factored 
attribute.  FACTORING  is  on  until  the  identifier 
is  encountered.  FACTOR_FOUND  is  on  if  a 
factored  attribute  is  actually  found. 


The  number  of  arguments  encountered  for 
the  function.  -1  for  declared  but  not  yet 

-Functions.  -2  for  non-HAL  functions 


FCN  MODE 

Value 

0 

symbol  table  pointer 

1 

bi-info  pointer 

2 I 

shaper  number 

3 

shaper  number 

4 

bi-info  pointer 

Since  function  calls  may  be  nested,  a stack 
is  required  to  save  partially  examined  func 
tion  calls.  FCN_LV  is  the  stack  pointer  — 
it  is  0 for  procedures  and  I/O. 

0 - procedure,  I/O,  user  function 

1 - normal  built-in  function 

2 - arith  shaping  function 

3 - string  shaping  function 

4 - list  function 
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FIRST_STMT 
FIX  DIM 


FIXF 


Line  number  of  first  statement  of  block. 

The  size  of  the  dimension  just  subscripted 
(e.g.  3 AT  1 would  yield  FIX_DIM  = 3, 

14  would  yield  FIX_DIM  = 1/ 

4 TO  8 would  yield  FIX_DIM  = 5) . 

Parser  stack  initialized  to  FIXING  by  parser. 


for  <statement> 
<basic  statement> 
<any  statement> 
<other  statement> 


a pointer  to  the 
previous  label  on  the 
same  statement. 


FIXL  Parser  stack  initialized  to  SYT_INDEX  by 

parser  and  usually  maintained  as  a symbol 

table  pointer. 

- for  <minor  attribute>  something  to  incorporate 
into  ATTR_MASK. 

- for  <prec  speo  something  to  incorporate 
into  ATTR_MASK. 

- for  <double  qua 1 name  head>  the  TYPE. 

- for  <repeat  head>  IC_LINE  at  the  time  of  the 
reduction. 

- for  <qual  struct>  symbol  table  pointer  for 
template. 


- for  <#  expression>  : 

1 - just  a # 

2 - # + <term> 

3 - # - <term> 

- for  <subscript>: 

"1"  bit  on  for  real  subscript, 
off  for  null  subscript. 

"2”  bit  on  for  user  defined  function, 
off  otherwise. 

- for  <arith  conv> ; 

0 -4-  MATRIX 

1 ■>  VECTOR 

2 SCALAR 

3 INTEGER 


km'  , ^ 
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- for  <bit  const  head>  the  value  of  the 
repetition  factor; 

- for  <FOR  KEY>  symbol  table  pointer  in  FOR 
TEMPORARY,  Otherwise, 0. 

- for  <while  key>  and  <stopping>: 

0 for  WHILE, 

1 for  UNTIL. 

- for  <terminator>  HALMAT  GANG  or  TERM. 

FIXV  Parser  stack  initialized  to  VALUE  by  parser. 

- for  <struct  stmt  head>  the  current  value 
of  level  . 

- for  <minor  attribute>  something  to  incorporate 
into  ATTRIBUTES. 

- for  <prec  spec>  something  to  incorporate  into 
ATTRIBUTES . 

- for  <doubly  qual  name  head>  the  first 
dimension  of  a matrix. 

- for  <repeat  head>  the  number  of  elements 
affected. 

- for  <prefix>; 

0 - dummy  prefix. 

1 - real  prefix  (i.e.  qualified  structure 

reference) 

- for  <qual  struct>  symbol  tabel  pointer  for 
major  structure. 

- for  <for  key>  a pointer  to  the  DFQR 
instruction. 

- for  <iteration  body>  a pointer  to  the  last 
AFOR  issued. 

- for  < terminator > ; 

TERMINATE  "EOOO" 

GANGEL  "AOOO" 

- for  <file  exp>  the  device  number. 
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PL__NO 

WP 


FUNC_MODE 
HALMAT_BLOCK 
HALMAT  FILE 


Whenever  the  compiler  wants  to  refer  to 
a point  in  the  HALMAT  it  generates  an 
internal  label  called  a flow  number.  When 
the  appropriate  point  in  the  HALMAT  is 
reached,  the  flow  number  is  defined  by  an 
LBL  HALMAT  operator.  FL_NO  is  simply 
incremented  each  time  to  generate  unique 
flow  numbers.  It  is  stacked  in  lots  of 
places  (e*g.  the  DO  stack). 

See  BLOCK__MODE. 

See  NEXT_ATOM#. 

See  NEXT  ATOM#. 


IC  FILE 


See  IC  LINE. 


IC  FND 


= type(.  . ,)  on  if  an  i/c  has  been  found. 


IC_PORM 

IC_FOUND 

IC_LEN 
IC_LIM 
IC  LINE 


See  IC_LINE. 

0 - no  initialization  pending. 

1 - factored  initialization  pending. 

3 - non-factored  initialization  pending. 

See  IC_LINE. 

See  IC_LINE. 

The  i/c  que  is  stored  as  the  paged  file, 

IC_PILE.  The  current  page  CUR_IC_BLK,  resides 
in  IC_VAL  which  contains  the  lines 
IC  ORG  < line  number  < IC_LIM.  IC_MAX  is  the 
largest  value  attained  by  CUR_IC_BLK. 

IC_PORM  is  the  form  of  the  i/c  que  entry. 

IC_FORM  = 1 -.entry  is  an  <arith  exp>  for  a 

repeat  count 

2 - entry  is  a constant  for  an  i/c 

value 

3 - entry  is  made  after  all  value 

entries  in  a <repeated  constant> 
and  is  used  to  generate  the  ELRI. 

When  IC_FORM(i)  = 2, 


IC_LEN(i)  is  the  PSEUDO_PORM  of  the  entry. 

IC_TYPE(i)  is  the  PSEUDO_TYPE  of  the  entry. 

IC_VAL{i)  is  NUM_ELEMENTS  at  the  time  the 
entry  was  made. 
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IC_LOC(i)  is  a literal  table  pointer. 

When  IC_PORM(i)  = 1, 

IC_LEN(i)  is  number  of  values  affected  by 
this  repetition  count. 

IC_TYPE(i) 

IC_VAL(i)  is  a nesting  number  used  by  Phase  2 
to  check  matching  SLRI , ELRI  operations . 

IC  LOC(i)  is  the  repeat  count. 


IC_LOC 

IC_MAX 

IC_ORG 

IC_PTR 

IC_PTR1 

IC_PTR2 

IC_TYPE 

IC_VAL 

ICQ 

ID_LOC 

ILL_ATTR(type) 


See  IC_LINE. 

See  IC_LINE. 

See  IC_LINE. 

At  the  beginning  of  processing  an  i/c 
"statement",  an  indirect  stack  entry 
is  created  to  describe  the  rest  of  the 
list.  IC_PTR  points  to  that  entry. 

Value  of  IC_PTR  in  factored  case. 

Value  of  IC_PTR  in  non-factored  case. 

See  IC_LINE . 

See  IC_LINE. 

When  doing  initialization  ICQ  takes  on 
the  value  of  IC_PTR1  or  IC_PTR2  — which 
ever  is  appropriate. 

Symbol  table  pointer  for  name  being  declared. 

Is  a SYT_FLAGS  style  bit  string  of  attributes 
illegal  for  that  type. 


ILL  CLASS  ATTR (class)  Is  a SYT_FLAGS  style  mask  of  attributes 
~ ~ illegal  for  that  class. 


ILL_EQUATE_ATTR 


Is  a SYT_FLAGS  style  mask  of  attributes 
illegal  for  EQUATE. 
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[j<g^«3rtf«js^r 


ILL  INIT  ATTR 


Same  for  initiaization. 


ILL  LATCHED  ATTR 


Same  for  latched  event. 


ILL  MINOR  STRUC 


ILL  NAME  ATTR 


A SYT_FLAGS  style  mask  for  attributes 
illegal  for  a minor  structure  node. 

Same  for  NAME  operation. 


ILL  TEMPL  ATTR 


Same  for  templates . 


ILL  TEMPORARY  ATTR 


Same  for  temporaries, 


ILL_TERM_ATTR  (name ) 
IMPLIED_UPDATE_LABEL 

IND_LINK 

INDENT_INCR 

INDENT_LEVEL 

INIT_EMISSION 

INLINE_LABEL 

INLINE_LEVEL 

INLINE_NAME 

INX 


A SYT_FLAGS  Style  mask  for  attributes 
illegal  for  a structure  terminal  node 
with  or  without  name  attribute. 

Counts  the  nximber  of  unlabelled  update 
blocks.  Used  to  generate  unique  labels  for 
those  blocks. 

Points  to  the  last  subscript  entry  processed 
by  REDUCE_SUBSCRIPT . 

The  indentation  increment. 

See  Output  Writer. 

On  if  some  initialization  has  been  issued. 

Incremented  by  1 for  each  inline  function 
processed. 

Incremented  on  entering  inline  function  de- 
cremented on  leaving  it;  consequently,  it 
should  be  0 or  1. 

The  name  of  the  inline  function  being 
processed. 

See  PTR  TOP. 
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lODEV 


LABEL_COUNT 

LAST_POP# 

LOC_P 

LOCK# 

MAT  LENGTH 


MAX_PTR_TOP 
MAX  SCOPE# 


MAXNEST 


Indexing  by  device  number  (0-9)  yields 
the  device's  characteristics  in  the  form 
of  an  eight  bit  descriptor. 


DEVICE  card 
found 


ZI 


bad  DEVICE 
card 
found 


>c 


input  flag 


output  flag 
-print  flag 
- conflict  flag 


device 

declared,  but 
unused 


conflict  = DEVICE  Says  print  but  READ  or 
READ ALL  was  found. 


Total  number  of  labels  declared  so  far. 
See  NEXT_ATOM#. 

See  PTR_TOP. 

The  value  of  <constant>  in  the 
LOCK (< constant >)  declaration.  "FP” 
indicates  the  value  was  illegal. 


dim  1 


dim  2 


8 


8 


where  the  current  matrix  declaration  is  for 
dimensions  dim  1,  and  dim  2. 

See  PTR_TOP. 

When  entering  a new  scope , a new  SCOPE# 
must  be  generated.  Since  SCOPE#  can  decrease 
when  exiting  a scope , MAX_SCOPE#  = maximum 
value  achieved  by  SCOPE#  is  required. 

Maximum  value  of  NEST. 


'Kp- 
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MISC  NAME  FLAG 


See  symbol  table  — SYT  FLAGS. 


N_DIM 

NDECSY 

NEST 


,NEXT_ATOM# 


NEXT_SUB 

r 


The  number  of  dimensions  in  a declared  array. 

See  symbol  table. 

Every  time  a scope  is  entered,  NEST  is 
incremented;  every  time  a scope  is  exited, 

NEST  is  decremented;  thus,  NEST  is  the 
number  of  enclosing  scopes. 

The  HALMAT  is  kept  on  a paged  file,  HALMAT_FILE. 
The  current  block,  number  HALMAT_BLOCK , is 
stored  in  ATOMS . NEXT_ATOM#  points  to  the 
next  available  location  in  ATOMS;  LAST_POP# 
is  the  NEXT_ATOM#  value  for  the  last  HALMAT 
operator  word.  CURRENT  ATOM  is  a word  to  be 
inserted  in  the  HALMAT  file.  ATOM#  FAULT 
is  used  to  control  HALMATjOUT.  If  Tt  is  -1, 
clear  out  the  whole  buffer;  otherwise,  out- 
put that  part  of  the  buffer  up  to,  but  not 
including,  ATOM#_FAULT. 

Pointer  to  the  indirect  stack  entry  for  the 
next  subscript  item  to  process. 


NONHAL 


The  value  of  <level>  in  NONHAL (<level> ). 


NUM  ELEMENTS 


Number  of  elements  to  set  in  an  initial  list. 


NUM_STACKS 

ON_ERROR_PTR 

OUTER_REF_INDEX 

OUTER_REF_PTR 

PARM_CONTEXT 

PARMS_PRESENT 

PARMS  WATCH 


Number  of  i/c  que  entries  for  an  initial  list. 
See  symbol  table  — EXT_ARRAY. 

See  OUTER_REF  in  SCAN . 

See  OUTER_REF  in  SCAN. 

See  CONTEXT  in  SCAN. 

Number  of  formal  parameters  encountered. 
Expecting  formal  parameters. 
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PCARG# (i) 


The  number  of  arguments  expected  for  the 
ith  % macro. 


PCARGBITS 


Restrictions  on  % macro  argtunentSi 


. 0 m m m m m 9 ^ — vars  legal 

I- — (unsubscripted) 
— contiguous  area 
— constant  legal 
'-to  be  assigned  into 
arrayness/compiness  illegal 
name  copiness  illegal 
NAME  context  checking 
funny  storage  illegal 


PCARGOFF (i) 


PCARGTYPE 


4-  "K 

A pointer  (for  the  i % macro)  to  the  beginning 
of  the  list  of  descriptors  in  PCARGBITS  and 
PCARGTYPE. 

Legality  indicators  for  % macro  arguments. 


yvent 


structure 


task 

I X.CIJ3JV 

matrix  prog 


I vector 
scalar 

integer 


struc- 

ture 


I ! oit 
j char 
matrix 
vector 
scalar 


integer 


func , 
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PCCOPy_INDEX 

PROCMARK 

PROCMARK_STACK (nest) 

PROG_MODE 

PROGRAM_LA'YOUT 

PROGRAM_LAYOUT_INDEX 

PSEUDO_FORM 

PSEUDO_LENGTH 

PSEUDO_TYPE 

PTR 

PTR  TOP 


The  index  in  PC...  of  %COPY. 

Pointer  to  the  first  symbol  table  entry 
for  the  current  block. 

The  PROCMARK  for  the  enclosing  nesting 
level. 

See  BLOCK_MODE. 

Contains  the  symbol  table  pointer  for 
the  block  name  of  the  associated  block. 

Points  to  the  last  entry  in  PROGRAM_LAYOUT . 

See  PTR_TOP . 

See  PTR_TOP. 

See  PTR_TOP. 

See  PTR__TOP. 

When  the  semantics  of  an  item  require  more 
space  than  is  available  in  the  parser's 
direct  stack,  space  is  allocated  in  the 
indirect  stack  and  the  parser ' s PTR  stack  entry 
is  set  to  point  to  the  entry.  PTRJTOP  points 
to  the  top  of  the  indirect  stack  and  MAX_PTR_TOP 
is  the  greatest  value  achieved  by  PTR_TOP. 

EXT_P  INDENT_LEVEL  before  entering  inline 
function. 

INX  STMT_NUM  before  entering  inline 

function. 

VAL  P masks  are: 


” X” 

•I  2 It 
II 4 II 
II  g II 

"10" 


item  has  arrayness 
item  has  copiness 
major  structure 

array  or  component  subscripting 
subscripting  illegal  for  assign  parameter 
or  name,  i.e.  subscript  is  not  a 
numeric  index;  character  or  bit  compon- 
ent subscript;  vector  and  matrix  not 
scalar;  subscript  not  removing  array 
copies;  name  (?)  ->■  arrayed  subscript; 
subscript  removed  some  but  not  all 
copiness 
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"20" 

"40" 

"80" 

"100" 

"200" 

"400" 

"800" 

"1000" 

"2000" 


item  contains  subscripting 

item  contains  precision  modifier 

item  is  SUBBIT (something) 

item  is  NAME (something)  or  NULL 

name  attribute 

null 

name(?)  nesting  warning 
leaf  node  is  a template  name 
some  but  not  all  conditions  for  status 
"10"  have  been  found,  be  on  the  look- 
out 


- for  <init/const  head>  PSEUDO_TYPE: 

0 no  * in  declaration, 

1 * in  declaration. 

LOC_P  = number  of  elements  affected 

VAL_P  = number  of  GVRs  used 

PSEUDO_LENGTH  = length  of  list  including 
this  item 

PSEUDO_FORM  = 0 

INX  = value  of  IC_LINE  at  the  beginning 
of  the  list 


- for  <repeat  head>  INX  = number  of  elements  specified  in 

repeat  count. 

- for  <arith  exp>  Of  form  XLIT,  L0C_P  = literal  table 

pointer. 

- for  values  associated  with  IC_PTR  or  ICQ 

See  <init/const  head>  above. 

- for  <constant>,  <bit  constant> 


- for  <...var>: 


...  a literal  table  pointer^ 

PSEUDO_TYPE  = SYT_TYPE  of  id 
PSEUDO_LENGTH  = VAR_LENGTH  of  id 
jPSEUDO_FORM  = SYT 

^ LOC_P  = symbol  table  pointer  of  id 
or  I PSEUDO_FORM  = XPT 

^LOC_P  = HALMAT  pointer 
EXT_P  = STACK_PTR  of  id 

INX  =NEXT_ATOM#  value  for  first  operand 
of  TSUB  is  one  was  issued. 
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for  <prefix> 
or  <qual  struct>: 


All  of  the  entries  for  the  qualifiers 
are  immediately  above  the  entry  for  <prefix>. 
INXt<S0  means  there  is  another  entry.  LOC_P 
of  each  such  entry  is  a symbol  table  pointer 
for  the  qualifier  PSEUDO_TYPE  = MAJ_STRUC, 
EXT  P = STACK  PTR. 


for  < subscript > 
or  <$>: 


LOC_P  contains  the  value  for  numeric  sub- 
script. 

VAL_P,  see  ARRAY_SUB_COUNT . 

PSEUDO  LENGTH,  see  STRUCTURE_SUB_COUNT . 


# - < term> 


The  INX  entry  is  transformed  by 
REDUCE_SUBSCRIPT  so  that  the  low  order  bit 
indicates  partitioning  down  to  a single 
element,  4 indicates  array  subscripting  8 
indicates  structure  subscripting. 

PSEUDO_LENGTH  links  together  entries  for 
the  parts  (i.e.  array,  structure,  ...)  of 
an  entire  subscript.  PSEUDO_LENGTH (0) 
points  to  the  beginning  of  the  list. 


- for  <list  expression>; 


Same  as  <expression>  except  that  INX  — 
<arith  exp>  in  <list  expression>s  of  the 
form  <arith  exp>  # <expression>. 
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INX,  see 

SUB 

_COUNT . 

1 

constituents 

: 

'1 

•4 

INX  = 

0 

* 

type 

1 

1 

'1 

1 

sub  exp 

type 

2 

TO 

type 

3 

AT 

type 

L0C_P  = 

: value  if  <sub>  is 

a number, 

■■ir 

VAC  pointer 

if  it 

is  computed. 

»■' 

VAL_P  = 

=0 

no  # 

i 

1 

just  a # 

4 

2 

# + <term> 

- for  <bit  prim>; 


INX  = 0 not  an  event 

1 event  found 

2 event  found 


with  REFER_LOC 
with  REFER  LOG 


> 0 
<=  0 


- for  <qualifier>: 

PSEUDO  FORM  = 1 SINGLE 
“ 2 DOUBLE 

- for  <bit  qualifier>: 

radix 

PSEUDO  LENGTH  = 1 " BIN 

~ 2 - DEC 

3 - OCT 

4 - HEX 


- for  <while  clause>: 


- for  <f or  list> : 


INX. = 0 for  WHILE 
1 for  UNTIL 


PTR  = 0 discrete  for 

1 DO  FOR  TO 

2 DO  FOR  TO  BY 


- for  <any  statement>; 


PTR  = 1 for  < statement > and  update  block 
0 otherwise 


for  <terminate  list>: 

EXT  P = length  of  list 

for  <label  var>  or  REFER_LOC  • 

INX  = 


bits 

mean 

**  1 ” 

AT 

" 2 " 

IN 

" 3 " 

ON 

II 411 

priority  specified 

"8" 

DEPENDENT  specified 

II 10" 

REPEAT 

"20" 

repeat  every 

"30" 

REPEAT  AFTER 

"40" 

UNTIL  <arithexp> 

"80" 

WHILE  <bit  exp> 

"CO" 

UNTIL  <bit  exp> 

4-104 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  ‘ CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


- for  <read  key>  or  <write  key>: 


for  <block  body>  : 


QUALIFICATION 


REF_ID_LOC 

REFER_LOC 

REL_OP 

RIGID_FLAG 
S_ARRAY  (i) 

SAVE_SCOPE 

SCOPE# 

SCOPE#_STACK ( nest ) 
SRN  COUNT  MARK 


INX  = 0 - READ 

1 “ READALL 
. 2 - WRITE 


PTR  = 0 - just  declarations 

1 - at  least  one  statement 


When  reading  a qualified  structure  name 
(e.g.  A,B,C)  a separate  call  is  made  to 
IDENTIFY  for  each  name.  QUALIFICATION 
is  reset  each  time  that  the  symbol  table 
entry  for  a node  name  is  found,  so  that 
when  searching  for  C,  we  find  the  C hanging 
from  B which  is  hanging  from  A rather  than 
some  other  C.  QUALIFICATION  is  zero  when 
not  reading  a qualified  structure  name. 

When  building  a structure  template,  a pointer 
to  the  symbol  table  entry  for  the  root  node. 

For  WAIT  — 1, 

for  SCHEDULE  — indirect  stack  pointer 
for  program  or  task. 


The  kind  of  <relational  op>  0 - 


1 - NOT= 


2 - <,  3 - >,  4 - <=,  4 “ NOT  >,  5 - >=, 

5 - NOT  c. 

See  symbol  table  — SYT_FLAGS. 

The  size  of  the  i " dimension  of  the  current 
identifier  being  declared.  -1  means  * 
arrayness. 

The  name  associated  with  the  current  block. 

Each  naming  scope  requires  a unique  identifier 
to  resolve  the  problems  of  nested  declarations. 
This  is  SCOPE#  and  it  is  saved  in  SYT_SCOPE 
for  each  variable. 

The  SCOPE#  associated  with  the  enclosing 
nest  level. 

Saves  SRN_C0UNT(2)  while  processing  inline 
functions. 
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SRN  MASK 


STAB  MARK 


STAB  STACK 


Saves  SRN (2)  while  processing  inline 
functions . 

Saves  STAB_STACKTOP  while  processing 
inline  functions. 

Is  a stack  of  information  for  generating 
simulation  information.  STAB_STACKTOP 
points  to  the  topmost  entry. 


label  entry  = 


symbol  table 
pointer 


STAB  STACKTOP 


See  STAB  STACK. 


STACK  PTR 


STARRED  DIMS 


STRUG  DIM 


STRUC  PTR 


STRUCTURE  SUB  COUNT 


SUB  COUNT 


SUB  SEEN 


See  GRAMMAR_FLAGS . 

Number  of  dimensions  specifying  * arrayness 
in  current  declaration. 

The  copiness  of  a structure  declaration. 

-1  implies  * copiness. 

When  processing  a structure  declaration, 
this  is  a pointer  to  the  symbol  table 
entry  for  the  template  of  the  structure. 

LITERALLY  PSEUDO_LENGTH (PTR (MP) ) initialized 
to  -1.  SUB_COUNT  is  copied  here  on  finding 
a " ; " in  a subscript.  If  no  structure  sub- 
script is  found  before  a in  the  subscript, 

it  is  reset  to  0. 

LITERALLY  INX (PTR (MP) ) . The  number  of 
<sub>s  encountered  in  the  entire  subscript. 

0 - no  <sub>  encountered, 

1 - <sub>  encountered  in  current  group, 

2 - <sub>  encountered  in  previous  group  but 

not  yet  in  current  group. 
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SUBSCRIPT  LEVEL 


-«!  ?-• 


SYT  SCOPE 


Zero  for  unsubscripted  item,  increased 
by  one  for  each  level  of  subscripting. 

See  symtol  table  and  SCOPE# . 


TASK  MODE 


See  BLOCK  MODE. 


TEMPS 


0 - radix  was  DEC, 

1 - was  BIN, 

2 - radix  was  DEC,  converted  in 

production  259, 

3 - radix  was  OCT, 

4 - radix  was  HEX. 


TYPE  TYPE(O)  is  the  type  just  read  from  an 

attribute  list.  Notice  that  TYPE(l)  = 
BIT  LENGTH. . . . 


UPDATE_BLOCK_LEVEL  Incremented  on  entering  update  block, 

decremented  on  leaving.  Since  update 
blocks  may  not  be  nested,  it  should 
always  be  zero  or  one. 

UPDATE  MODE  See  BLOCK  MODE. 


VALJP  See  PTRJPOP. 

VAR  Initially  the  name  associated  with  an  element 

on  the  parse  stack.  For  blocks,  it  is  replaced 
by  CURRENT_SCOPE  at  the  time  the  block  is 
entered. 

VAR_ARRAYNESS (i)  i = 0 - the  number  of  subscripts  possible. 

1 £ i _<  VAR_ARRAYNESS  (0)  - the  maximum  for 
the  ith  subscript. 

After  all  subscripts  have  been  processed, 
any  residual  arrayness  is  copied  to 
CURRENT_ARRAYNESS  . If  CURRENT_ARRAYNESS?^0  , 
then  the  residual  arrayness  must  match. 

CURRENT_ARRAYNESS  must  often  be  stacked 
on  ARRAYNESS_STACK , (e.g.  when  evaluating  a 

function  argument) . This  is  done  by 
SAVE  ARRAYNESS.  The  stacking  is  done 
upsidfe  down.  That  is,  stack 

, CURRENT_ADDRESS (CURRENT_ARRAYNESS ) . . . 

until  finally,  stack  CURRENT_ARRAYNESS ( 0) 
on  the  top.  AS_PTR  points  to  the  topmost  entry 
in  ARRAYNESS  STACK. 

.•I  * ■ , 

.ifc'  ' . 
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1 


VEC_LENGTH 

XCDEF 

XFDEF 

XMDEF 

XPDEC 

XTDEF 

XUDEF 


Length  for  vector  declaration  being 
processed. 

Compool  indicator. 

Function  indicator. 

Program  indicator. 

Procedure  indicator. 

Task  indicator.  , 

Update  block  indicator. 


't  y 


3 I 

I 

: 


4-108 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


4.4.2  <block  stmt>  and  < . . . 


inline  def> 


As  can  be  seen  from  the  grammar  fragment  below,  the 
<block  stmt>  is  the  opening  of  the  block.  This  is  where 
new  scopes  are  entered,  procedure,  function,  ...,  names  are 
defined,  etc. 

1 <compilation>  ; :=  <compile  list>  _|_ 

2 <compile  list>  : :=  <block  definition> 

39  <any  statement>  : :=  <block  definition> 

289  <block  def inition>  : :=  <block  stmt>  <block  body>  <closing> 


Although  the  inline  functions  appear  in  another  part  of 
the  garmmar,  they  are  most  naturally  treated  here. 

This  section  deals  with  productions  293-328 

293  <ARITH  INLINE  DEF>  : :=  FUNCTION  <ARITH  SPEO : 

294  I FUNCTION; 

295  <BIT  INLINE  DEF>  ::=  FUNCTION  <BIT  SPEC>  ; 

296  <CHAR  INLINE  DEF>  ; :=  FUNCTION  <CHAR  SPEC>  ; 

297  <STRUC  INLINE  DEF>  ;:=  FUNCTION  <STRUC  SPEC>  ; 
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298 

<'DI.OCK  STf*'r>  = 

<BLOTK  STMT  '"OP>  ; 

299 

<BlOCK  ST"r  T''>P> 

<BLOCK  STMT  "»np>  ACCESS 

3'“C- 

1 

<EI..OC'4  S'’"’T  TO'=>  FTSI9 

331 

1 

<PLOC'<  S^'IT  HEAD> 

30  2 

1 

<PLOCK  S?"T  ' !I!:A9>  TXCLBSIVE 

333 

1 

<BtOCK  STMT  IIEAB^  REENTRAMT 

3C« 

D"FINI'’TOK>  : 

t”  <LABFL>  : 

30S 

<LAnn.  3XTr;PN.\L> 

* * S 

<LAREr.  nTriMiTio;i> 

306 

1 

<IAB'T,  IK T"’TO*l>  '’XTTPNAL 

337 

308 

<BLOCK  H^AD> 

• • 

= <LAB“I  r’X"'’^~J!  AT,>  9F0C7AM 
1 <LABri.  -’X'^’='RK'A1.>  CCMPOOL 

30  9 
310 

1 <I.An^J.  P^rZNTTTO'I>  TASK 
1 <rLABEL  nSFINIVCnN>  UPDATE 

311 

1 n P D A":’  E ■ ' 

312 

1 <Pt?NCTION  flAME>  ■ 

313  . 

1 <Fn?;cTiD;;  na?'.t’>  <-'ikc  stmt  body> 

314 

1 <PHncE'’’UH"  kah:-:> 

31*> 

1 <PP.OCErn?r.  MA''E>  <P?OC  STMT  BOrY> 

316 

<FUNrTtCN  : 

; = 

<LABEL  EXTFPIIAL>  FUNCTION 

317 

<F?.0C7rfJ?" 

<T.ASr.L  EXTEPNAL>  PBOCEDURS 

318 

<FiJHC  STMT  B09Y> 

: := 

<FA9AME'FER  LIST> 

319 

1 

<TYPE  SPEC> 

320 

1 

<PA9AHETE?.  LIST>  <TYPE  SPEO 

321 

<PROC  STMT  BOPY> 

J *3= 

<PAPAHETEB  LIST> 

322 

1 

<assk;n  list> 

323 

1 

<PARAMETEr  LIST>  <ASSIGN  LIST> 

324 

<PA’^AMTT^F  LIST> 

* * S’ 

<PARAMET^P  HFAP>  <TDENTI?IEE>  ) 

325 

<PA?.A*”;TEE  HEAO> 

• 

( •• 

326 

1 

<rAPAMETT?  H’'AD>  <IPENTI7TEn>  , 

327 

<ASSIGN  LIST>  : := 

<ASsiGN>  <PARAMETKR  LTST> 

328 

<ASSTGN>  ::=  AS  SIGH 
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Productions  293-297 


If**’ 


<arith  inline  def> 


<bit  inline  def> 
<char  inline  def> 
<struc  inline  def> 


FUNCTION  <arith  speo  ; 
FUNCTION; 

FUNCTION  <bit  spec>  ; 
FUNCTION  <char  spec>; 
FUNCTION  <struc  speO; 


Set  TEMP  to  the  size  of  the  function  result,  0 for 
integer  or  scalar. 

Build  an  indirect  stack  entry  for  the  result.  Save 
the  various  simulation  and  SDL  information  until  the  inline 
is  finished. 

Augment  the  name  of  the  function  with  a unique  number 
and  make  a symbol  table  entry  for  it. 

Issue  an  IDEF  instruction.  SAVE  ARRAYNESS. 


Production  298  <block  stmt> 


<block  stmt  top>; 


Clear  out  the  listing  buffers,  turn  off  template  genera- 
tion,  set  to  indent  the  rest  of  the  block,  and  emit  a HALMAT 
statement  mark. 


Production  299  <block  stmt  top>  <block  stmt  top>  ACCESS 
Set  ACCESS  FLAG  for  the  block's  name. 


Production  300  <block  stm.t  top>  : :=  <block  stmt  top>  RIGID 
Set  RIGID_FLAG  for  block's  name. 

Production  301  <block  stmt  top>  ; :=  <block  stmt  head> 

Nothing . 

Production  302  <block  stmt  top>  : ;=  <block  stmt  head>  EXCLUSIVE 
Set  EXCLUSIVE_FLAG  for  the  block's  name. 

Production  303  <block  stmt  top>  : :=  <block  stmt  head>  REENTRANT 
Set  REENTRANT_FLAG  for  the  block's  name. 

Production  304  <label  definition>  :;=  <label> 

Generate  HALMAT  to  define  the  label.  Set  up  the  SYT_LINKl 
and  SYT_LINK2  entries.  Count  the  label.  If  a simulation  was 
requested,  stack  the  label's  symbol  table  entry  via  STAB_LAB. 

Set  the  LABEL_FLAG  in  the  label's  GRAMMAR_FLAGS  entry.  Make  a 
cross  reference  entry. 

Production  305  <label  external>  <label  definition> 

Do  nothing. 
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T- 


Production  306  < label  external>  ; < label  definition>  EXTERNAL 

Set  external  flag  in  SYT_FLAGS.  Temporarily  turn  off 
acquisition  of  simulation  information. 


Production  307  <block  stmt  head>  : <label  external>  PROGRAM 

Set  to  no  parameters.  Insert  PROG_LABEL  as  SYT_TYPE  and 
check  for  consistency  using  SET_LABEL_TYPE . 

Most  of  the  time,  control  will  proceed  to  DUPLICATE_BLOCK 
(including  from  compools,  tasks,  and  update  blocks)  where 
BLOCK_MODE  is  usually  zero.  Here,  we  initialize  for  the  new 
block,  set  up  EXTERNALIZE  and  call  EMIT_EXTERNAL  to  start 
template  production.  Finally,  we  join  all  other  control  flow 
paths  which  can  enter  a new  scope  at  NEW_SCOPE  in  production 
317. 


Production  308  <block  stmt  head>  ;:=  <label  external>  COMPOOL 

Set  for  one  parameter.  Define  SYT_TYPE  of  the  label  via 
SET_LABEL_TYPE . Join  production  307. 

Production  309  <block  stmt  head>  ::=  <label  definition>  TASK 

Define  SYT__TYPE  of  label  via  SET_LABEL_TYPE . Set  LATCHED_FLAG 
for  task  name  so  it  will  behave  like  a latched  event.  Join 
production  307. 

Production  310  <block  stmt  head>  ; :=  <label  definition>  UPDATE 

Set  for  labeled  update  block  and  backspace  over  HALMAT 
which  defined  the  label.  Unlabeled  update  blocks  join  here. 

Define  label  to  be  normal  statement  label  via  SET_LABEL_TYPE . 

Join  all  scope  defining  statements  at  NEW_SCOPE. 

Production  311  <block  stmt  head>  : ;=  UPDATE 

Generate  a label  and  simulate  an  UPDATE  statement  with 
that  label.  Join  labelled  update  blocks. 
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Production  312  <block  stmt  head>  <function  name> 

Check  the  type  for  legality  and  fill  in  scalar  if  not 
specified.  If  it  is  numeric  and  the  necessary  attributes 
have  not  been  specified,  fill  in  the  default. 

If  the  function  was  not  defined  earlier,  SET_SYT_ENTRIES ; 
otherwise,  check  that  this  declaration  agrees  with  the  earlier 
one . 

Clear  out  the  TYPE  information,  set  FACTORING  and  clear 
DO  _INIT  in  preparation  for  handling  the  declaration  part  of 
the  function. 


Production  313  <block  stmt  head>  ::=  <function  name> 

< function  stmt  body> 

Same  as  production  312. 


Production  314  <block  stmt  head>  ::=  <procedure  name> 

Turn  off  PARMS_WATCH.  Everything  else  has  already  been 
done  in  <procedure  name>. 


Production  315  <block  stmt  head>  ;:=  <procedure  name> 

<procedure  stmt  body> 

Everything  has  already  been  done. 


Production  316  <function  name>  ::=  <label  external>  FUNCTION 

Set  ID_LOC  to  symbol  table  entry  for  label.  Fill  in  symbol 
table  entry.  Join  <procedure  name>  in  production  317. 


Production  317  <procedure  name>  : :=  <label  external>  PROCEDURE 


Define  label  as  procedure  using  SET_LABEL_TYPE . 

< function  name > joins  in  here  from  production  316.  Set  for 
no  parameters  seen,  turn  on  PARMS_WATCH  and  join  up  with 
everything  else  at  DUPLICATE_BLOCK.  Later,  everything  comes 
back  down  here  at  NEW_SCOPE. 

Clear  the  SYT_LINK1  entry  and  remove  the  name  from 
the  SYT_LINK2  list  of  labels.  Back  up  the  HALMAT  to  eliminate 
the  label  definition.  Notice  that  this  has  already  been  done 
for  update  blocks . 
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Issue  HALMAT  to  define  the  label.  <arith  inline  def> 
joins  here  from  production  293.  Initialize  all  the  descriptors 
for  this  new  nest  level  (see  data  descriptions  for  their  meanings) 
and  stack  the  old  ones.  If  the  block  is  an  inline  function; 
save  listing  information,  set  up  special  listing  format  for 
an  inline  and  emit  a HALMAT  statement  mask. 


Production  318  - 323 


Productions  313  and  315  require  a <func  stmt  body>  and 
<proc  stmt  body>  respectively.  These  items  are  purely 
syntactic;  however,  there  are  semantics  associated  with  their 
constituents  covered  by  productions  324  - 328  and  372  - 377. 

The  latter  group  handles  the  <type  spec>  on  function  declarations 
and  is  discussed  in  the  section  on  declarations. 


Production  324  <parameter  list>  ;;=  <parameter  head>  <identifier> 
Count  the  last  parameter. 

Production  325  <parameter  head>  : :=  ( 

Just  get  prepared  for  326. 

Production  326  <parameter  head>  : :=  <parcimeter  head>  <identif  ier> , 
Count  all  the  parameters  except  the  last. 

Production  327  <assign  list>  : :=  <assign>  <parameter  list> 

Nothing . 

Production  328  <Assign>  ; :=  ASSIGN 
Reset  the  context  properly. 
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4.4.3  <declare  group> 


As  can  be  seen  from  the  grammar  fragment  below, 
the  <declare  group>  is  the  declaration  section  of  the 
<block  definition>.  This  is  where  all  new  variables  tor 
the  newly  opened  scope  are  defined. 


1 <compilation>  ;;=  <compile  list>  _1_ 

2 <compile  list>  : s=  <block  definition> 

<anv  statement>  ;;=  <block  definition>  , 

289  <blLk  detinition>  i==  <block  stmtxbXock  body>  <olosa.ng> 

290  <block  body> 


291 

292 


kdeclare  group> 

kblock  body>  <any  statement> 


This  section  deals  with  productions  329-425, 


32<t 

330 

331 

332 

333 

334 
33'" 

33  6 
33’’ 


I <?-^rL?cs  STM'!’>  ; 

I STMT> 

I rO’JA"'3  jlX'rsniAT.  to  <VA'’tABLK>  ; 

<REPLACS  5'IMT>  : :=  PFPLACE  <P3:PLACF  HEA0>  BY  <TEXT> 

^ <TnHV-IFI^~>  ( <A?G  tIST>  ) 

<APr,  LTS':> 
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-;;i£a-.^jW«!|r-’3^ 


?3B 

3 39 

3 'I? 
34  i 

34  2 
34  3 

^44 

345 
34  6 

247 

34  9 

34  4 
350 

35  1 
35  2 

353 

354 


<TFHrnPH5Y  STMT>  ::=  TEflFORABY  <DECLA9E  BOOY>  ; 

<CECLA45  STATEMENTS  ::=  OECLAE^  <PECLAPE  BODY>  ; 

<PTCL»n3  BOPY>  ! :=  <r*'CI.ASATION  LISTS 

I <ATTRTBUTESS  , <I)ECLAPATICH  LISTS 

OrCLAFATICN  LISTS  :!=  <PECLA'»ATTONS 

I <DCI.  LIST  ,S  <PTCLAPATIOMS 

<PCL  LIST  ,S  <DECLA4ATI0N  LISTS  , 

<tlSCLA?2  GFOnPS  : :=  <0SCLA’^E  ELEMENTS 

I <DECLASE  GPOUPS  <nECLARB  ELEMENTS 


<STR?ICTUP.E  STNTS  ;:=  STPnCTORE  <STP0CT  STMT  HEADS  <STPUCT  STMT  TAILS 

<c<r4iK'^  STMT’  h'^aES  :t=  <TPENT T*'I?rs'  : <LEVELS 
‘ " I <IP5'NTIFIEHS  <MIN03  ATTR  LISTS  : <LEVELS 

J <ST'tJCT  STMT  H^'AOS  <DTCLA?.ATION  > $ <L?VELS 

<STPnCT  STMT  TAILS  :;=  <DECLA?ATTONS  ; 

<STPnCT , SPECS  ::=  <STPtICT  t’EHPLATES  <ST»UCT  SPEC  BODYS 

<STPMr'’’  SPPC  BODYS  t 1=  “ STFBCTUPE 

I <STP0CT  SPEC  HEADS  <LITEPAL,  EXP  OR  *S  ) 


355  <STPIJCT  SPEC  HEADS  :;=  - STPHCTHRE  { 


356  <DEClAPAT2CNS  ::=  <NAMI  IDS 

357  I <NAME  IDS  <ATTRIE0TESS 

358  <NAM'i'  IDS  : ;=  <irENTIETEES 

359  I <IDENTIFIEPS  NAME 

360  <ATTRTBUTESS  : ;=  <APP.\Y  SPECS  <TYPE  6 MINOR  ATTRS 

361  I <AFP AY  SPECS 

362  I <TYPE  r.  KINO'’  ATTFS 

363  <AFFAY  SPECS  : :=  <A?EAY  HEADS  <LITEP.AL  EXP  OP  *S  ) 

354  I FOMCTIOV 

365  \ FECCECUPE  : 

366  I PROGRAM 

367  I TASK 

369  ■ <AFRAY  HEADS  ARRAY  ( 

369  I CAEFAY  HEADS  <LLTEPAL  "XP  OR  *S  , 

370  <TYPE  6 MINOR  ATTP>  ;:=  <TYPE  SPECS 

371  I <TYPE  SPECS  <MINOR  ATTR  LISTS 

372  _ t'  <HIN0?  AT'’'?  LISTS 

373  <TYP7  SPECS  <STPHCT  SPECS 

374  ' ■ ■ I <niT  SPECS 

3RS  I <CHAP  SPEO 

376  I <APTTH  SP''CS 

377  I event 
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379 

370 

<niT  SFFO  qcot,*‘AN 

1 BIT  ( <tIi’E'?AL  '"X?  OP.  *>  ) 

390 

<CnAR  SPF.O  :;=  CHArAC'''EE  ( <LTT«'HAL  SXP  03  *>,  ) 

391 

392 
30  3 

<Ari:’'H  srro  <pf'^c  .9pfc> 

1 <3Q  DO  NAM.E> 

1 <so  DO  h.a;'e>  <pp.fc  bpeo 

■ • 

394 
385 
396 
33  7 
380 

<.S0  PC  N.AMF>  : :=  <D0IIPtY  0"  AL  NAME  HEAO  <LIT?PAT 
1 l‘ITEG'^7 
1 SCAEAP 
1 VECTOR 
1 KATPTX 

EXP  OP  *> 

39  9 
390 

<D0UBLy  ODAI.  4AME  HEAD>  ::=  VECTOR  ( . 

I "1ATPIX  (.<LITE3AL  EXP 

OR  *>  , 

391 

392 

<ITT=’FAL  EXP  OE  *>  : :=  <APTTH  EXP> 

• * 

39  3 
394 

<PF.E'C  SPEO  : ;•=  SItIGLE 
1 DOUBLE 

%p 


39t  <i-!I?IOF  A1TF  T,T.ST>  : :=  <'5I'in?  .\TTPTB'I?^> 

396  I <riniNOP  ATTR  l.IST>  <»!I90S  AT?RIBnTE>  . 


397 

<3TN0F  ATT?IBUTE>  ;;= 

S’”ATIC 

.398 

AUTOMATIC  ‘ ■ 

399 

P.EN.5S 

400 

.ALTGUED 

401 

ACCESS 

402 

rOCK  ( <LITEpAL  EX?  OS  *>  ) 

403 

1 

PEMOTF 

404 

FiGin' 

405 

<141"’ /CONST  HEAD>  <SEPEATED  C0NSTANT>  ) 

4C6 

<TXIT/CONST  HEAP>  * ) 

407 

1 

I.ATCIIED 

408 

1 

NONHAL  { <lEVnL>  ) 

U09  <INI"’/CCKST  H'’AD>  ; ;=  TKITTAT.  ( 
tllO  . I CONSTANT  ( 

mi  I <IVIT/CONS?  H’’AP>  <3EPFATEP  C0HS7A*IT>  , 


U12 
«13 
U 1 1| 
J)15 
H16 


<i?ErEATED  CONST\HT>  :;=  <EXP3'’SSIOt!> 

I <r"D'^A'T  irA!'>  <VA'=IA9LE> 

I <FEP’^*T  HEAn>  <CON3TANT> 

I <N"Sr^P  P-'PEAT  IIEAD>  <REPrATED  CONSTANT>  ) 
I <?-pEA7  HFAD>  ■ 


1117  <REPEAT  HEAD>  ; ; <AHr7f!  EXP>  * 


U19  <'I'^S"FD  r-EPEAT  H'^AO>  : :=  <"1'^-EA'"  H’'AO>  ( 

*119  I <’I'^.STHP  PFP”AT  HEA0>  <rFPEATEP  C0NSTAN7>  , 


nr2C' 

«21 
'4  2 2 
'42  3 


<CONSTANT>  ::= 

) 

I 

I 


<Kinp='P> 

<CO 'IF-n'tN'^  N'>'*iEE^> 
<PIT  r0»!3".’> 

<CHAr  CCN?''’> 


<12<4  <N0'13''P>  ::=  <SI*'PLF  NniBER> 

1425  I <t,EV"L> 
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As  can  be  seen  from  productions  345  and  346,  a 
<declare  group>  is  simply  a list  of  <declare  element>s; 
thus,  the  interesting  question  is  "what  goes  into  a 
<declare  element>?" 

As  usual,  the  highest  level  productions  do  a little 
bookkeeping. 

Production  329  <declare  element>  :;=  <declare  statement^ 
Nothing. 


Production  330  <declare  element>  ;:=  <replace  statement> 

Several  productions  come  here  to  clean  up.  Clear  output 
writer  buffers  and  emit  a statement  mark. 


Production  331  <declare  element > : :=  <structure  statement> 

Save  the  size  and  join  330. 


Production  332  <declare  element>  ::=  EQUATE  EXTERNAL 

<identifier>  TO  <variable> 

The  EQUATE  EXTERNAL  feature  is  inconsistent  with  the 
rest  of  the  language;  therefore,  the  whole  mechanism  which 
handles  all  the  other  declares  is  by-passed. 

Set  SYT_PTR  of  <identifier>  to  point  to  the  <variable>. 

Check  that  the  EQUATE  is  legal,  generate  HALMAT  initialization 
to  perform  the  equate.  Drop  any  accumulated  arrayness.  Pop 
PTR_TOP  down  to  before  the  EQUATE  statement. 

Production  333  <replace  stmt>  : REPLACE  < replace  head>  BY  <text> 

The  <text>  is  already  in  MACRO_TEXT.  Just  fill  in  the  symbol 
table  entry  for  the  replace  name  and  drop  any  context. 


Production  334  and  335 

<replace  head>  ::=  <identif ier> | <identif ier>  (<arg  list>) 
Drop  the  context. 
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Production  336  and  337  <arg  list> 


: :=  <identifier> 

I <arg  list> ,<identifier> 

Count  the  argument  and  build  and  cross  reference  entry. 

Production  338  <temporary  stmt>  ;;=  TEMPORARY  <declare  body> 
See  production  339. 


Production  339  <declare  statement>  . : DECLARE  <declare  body> 
This  production  basically  cleans  house. 

Set  to  accumulate  new  factored  attirubtes.  Discard  any 
i/c  information  that  was  used  up  in  <declare  body>.  Diddle 
the  output  writer  to  make  everything  line  up. 


Production  340  and  341 

<declare  body>  <declaration  list> 

I <attributes> , <declaration  list> 

Drop  accumulated  factored  attributes. 

Production  342  <declaration  list>  ::■=  <declaration> 

Adjust  for  output  writer. 

Production  343  <declaration  list>  ::=  <decl  list,>  <declaration> 
Nothing. 

Production  344  <dcl  list,>  : :=  <declaration  list>. 

Call  output  writer  in  parts  to  make  things  line  up  nicely. 

Emit  a statement  mark  if  any  initialization  was  done. 

Production  345  and  346 

<declare  group > : :=  <declare  element> 

I <declare  group>  <declare  element> 

Nothing. 

■ifc' 
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Production  347 


< structure  stmt>  ;:=  STRUCTURE  <structure  stmt  head> 

<structure  stmt  taxl> 

Set  FACTORING. 

Move  FIXL  and  FIXV  stacks  down  to  simulate  status  in  350 
and  then  join  350. 

Production  348,  349 

<struct  stmt  head>  ::=  <identifier> : <level> 

I <identifier>  <minor  attr  lxst> : <level> 

Turn  on  BUILDING_TEMPLATE.  Initialize  for  a new  template. 
Insert  SYT_CLASS  and  SYTJTYPE  for  identifier  . Clear  out 
TYPE  array.  Clear  out  output  writer  buffers.  Join  350. 


Production  350 

<struct  stmt  head>  <struct  stmt  head>  <declaration> , <level> 

By  this  point  the  structure  template  has  been  initialized 
in  348  or  349  and  zero  or  more  nodes  have  been  accumulated  by 
recursive  application  of  this  production. 

If  DUPL  FLAG  is  on,  turn  it  off  and  walk  the  structure 
checking  that  the  duplicate  name  is  not  in  the  same  template. 

If  <level>  is  greater  than  the  current  one,  then  the  node 
being  processed  is  a minor  structure,  not  a leaf.  Increment 
the  current  level  and  check  that  the  declaration  of  the  minor 
structure  node  contained  nothing  illegal  for  such  a node 
it  cannot  have  a type  and  it  cannot  have  arrayness) . Set  the 
SYT  CLASS  of  the  minor  structure.  Copy  in  ALDENSE  and  RIGID 
attributes  from  the  root  node.  Update  the  symbol  table  entry 
via  SET  SYT  ENTRIES.  Stack  the  old  containing  node  on  the 
indirect  stack,  set  that  the  containing  nQs|«>  is  the  node  bexng 
processed,  set  SYT_LINK1  to  point  to  the  next  symbol  table 
entry  so  that  that  entry  will  be  the  first  son. 

If  <ievel>  is  less  than  or  equal  to  the  current  one  then 
we  have  just  accitnulated  all  the  sons  of  a node.  Fill  in  the 
SYT  LINK2  entry  of  all  last  sons  as  a negative  pointer  to  the 
father.  Notice  that  several  subtrees  may  be  terminated  so  a 
loop  popping  all  entries  off  the  indirect  stack  is  necessary. 

The  entry  just  finished  is  a leaf  so  it  must  be  a data  entry  ~~ 
check  it  like  any  other  data  declaration.  Update  symbol  table 
entry  via  SET  SYT  ENTRIES.  If  the  new  level  number  is  greater 
than  zero,  build  a link  from  its  left  brother;  otherwise,  clear 
out  the  teiriplate  building  variables.  The  latter  condxtxon  xs 
achieved  by  finding  the  closing  ” ; " , reducing  to 
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<struct  stmt  tail>(351),  reducing  to  <structure  stmt>(347)  and 
jumping  to  STRUCT_GOING_UP . 


Production  351  <struc  stmt  tail>  ; :=  <declaration>  ; 
Nothing  — see  350. 


Production  352 

< struct  spect>  : :=  < struct  template>  < struct  spec  body> 

Set  STRUC_PTR  to  point  to  the  symbol  table  entry  of  the 
template,  generate  cross  reference. 

Production  353  <struc  spec  body>  :;=  -structure 

Simple  case  is  just  syntactic;  diddle  the  output  writer. 

Production  354 

<struc  spec  body>  : ;=  <struc  spec  head>  <literal  exp  or  *> 

Check  dimension  and  set  STRUC_DIM.  Reset  CONTEXT  back 
to  DECLARE_CONTEXT  after  handling  <literal  exp  or  *>. 

Production  355  <struc  spec  head>  ::=  -STRUCTURE  { 

This  is  here  only  to  allow  diddling  the  output  writer. 
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Productions  356  and  357  <declaration>  : :=  <narae  id> 

I <name  id>  <attributes> 

time  we  have  accumulated- an  identifier  and  all  of  its 
attributes  including  i/c  attributes.  This  is  the  place  where  all 
or  the  hanging  flags  actually  get  installed  permanently. 

Set  that  any  any  pending  initialization  should  be  issued. 

and  check  conflicts  between  factored 

attpbutes.  The  factored  ones  are  then  copied 

CHECK  ^ complete  description  of  the  name. 

CHECK  CONSISTENCY  is  called  by  CHECK_CONFLICTS  to  check  that  the 
attributes  are  self  consistent. 

If  the  name  is  a formal  parameter,  decrement  the  number  of 
expected  parameters  and  check  that  the  attributes  are  legal  for 
a parameter.  if  it  is  not  a parameter  and  we  are  looking  for 
parameter  declarations  — error.  ^ 

If  the  name  is  an  event,  call  CHECK  EVENT  CONFLICTS  to 
check  that  the  other  attriubtes  are  consistent  with  an  event. 

If  the  name  is  not  NAME  variable,  then; 

- NONHAL  must  be  either  a procedure  or  function  and 
cannot  be  in  a COMPOOL. 

Functions  cannot  be  declared  in  a COMPOOL. 

The  only  CLASS  1 objects  that  can  appear  in  a DECLARE 
are  tasks.  For  tasks#  we  must  be  in  the  outermost 
nest  of  a program  block. 

If  there  was  an  illegal  initialization  attempted  on 
a non-CLASS  0 name,  issue  error  message  and  set  to  not 
perform  initialization. 

~ Only  CLASS  0 variables  can -be  temporary. 

Check  consistency  of  attributes  for  TEMPORARY  CLASS  0 
variables. 

If  the  name  is  a NAME  variable,  check  that  the  other 
attributes  are  consistent  with  NAME. 

If  the  name  is  a structure,  call  CHECK_STRUC_CONFLICTS : 

If  the  name  is  not  of  variable  class,  it  must  be 
qualified  with  no  copies. 
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If  we  have  an  unqualified  structure:  it  must  have 
a template  in  the  current  scope;  there  must  not 
already  be  an  unqualified  structure  for  the  template; 
the  template  must  have  no  duplicate  names;  the  template 
must  not  reference  any  other  structure. 

If  the  template  contains  a name  variable  then  the 
structure  cannot  be  temporary  and  any  other  template 
referencing  the  template  must  inherit  the  property 
of  containing  a name  variable. 

The  accumulated  information  about  the  variable  is  finally 
inserted  in  the  symbol  table  using  SET_SYT  ENTRIES  (described 
separately).  Notice  that  SET_SYT_ENTRIES  in  turn  calls 
HALMAT_INIT_CONST  to  actually  emit  HALMAT  initialization  for 
the  variable . 

If  the  variable  is  TEMPORARY,  then  link  it  into  the  list 
of  temporaries  for  the  current  do  nesting  level  and  issue. 


Production  358  <name  id>  : :=  <identifier> 

Set  ID_LOC  to  point  to  <identif ier> . 

Production  359  < name  id > : :=  <identifier>  NAME 

Set  NAME_IMPLIED  and  point  ID_LOC  at  <identif ier> . 

Productions  360  and  361 

<attributes>  ; :=  <array  spec>  <type  & minor  attributes> 

I <array  speO  , 

Check  that  dimension  specifications  were  legal  and  fall 
into  362. 

Production  362  <attributes>  : :=  <type  & minor  attributes> 

Check  the  declaration  for  consistency  via  CHECKjCONSISTENCY. 

If  FACTORING  is  on  then  the  attributes  are  factored 
attributes  so  copy  them  and  set  FACTOR_FOUND . Similarly, 
for  initial/constants. 
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Production  363  <array  spec>  :;=  <array  head>  <literal  exp  or  *>) 

Reset  CONTEXT  to  DECLAREjCONTEXT  after  < literal  exp  or  *> 
and  fall  into  production  369. 


Production  364  <array  spec>  ::=  FUNCTION 
CLASS  = 1. 


Production  365,  366  or  367  <array  spec>  : :=  PROCEDURE 

I PROGRAM 
I TASK 

Set  TYPE  and  CLASS  appropriately. 


Production  368  < array  head>  ::=  ARRAY  ( 

Prepare  to  accumulate  dimensions  by  zeroing  existing  values. 
Set  FIXL(SP)  and  FIXV(SP)  to  ARRAY_FLAG  for  use  in  production 
396.  Join  396. 


Production  369  <array  head>  : :=  <array  head>  <literal  exp  or  *>, 
Save  dimension  in  S ARRAY. 


Production  370  and  371 

<type  & minor  attr>  ; :=  <type  spec> 

I <type  speO  <minor  attr  list> 

Check  for  valid  CLASS. 

Production  372  <type  & minor  attr>  ;:=  <minor  attr  list> 
Nothing . 


Production  373,  374,  375,  376,  377  <type  spec>  : ;=  <struct  speO 

I <bit  spec> 

I <char  spec> 

I <arith  spec> 

I EVENT 

Set  TYPE  if  not  already  set. 
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Production  378  <bit  spec> 


BOOLEAN 


Simulate  BIT(l). 


Production  379  <bit  speo  BIT  (<literal  exp  or  *>) 

Restore  CONTEXT  to  DECLARE_CONTEXT  after  <literal  exp  or  *>. 
Set  TYPE  to  BIT_TYPE  and  BIT_LENGTH  to  declared  length. 


Production  380  <char  speO  ;;=  CHARACTER  (<literal  exp  or  *>) 
See  production  379. 

Production  381  and  383  <arith  spec>  ::=  <prec  spec> 

I <sq  dq  name>  <prec  speo 

Incorporate  accumulated  information  into  ATTR  MASK  and 
ATTRIBUTES . - 

Production  384 

<sq  dq  name>  :;=  <doubly  qual  name  head>  <literal  exp  or  *>  ) 

Restore  CONTEXT  to  DECLARE_CONTEXT  after  <literal  exp  or  *>. 
Set  up  VEC  LENGTH  or  MAT  LENGTH. 


Production  385 > 386,  387,  388  <sq  dq  name>  : :=  INTEGER 

I SCALAR 
I VECTOR 
I MATRIX 

Set  TYPE  appropriately  and  initialize  length  to  default 
length. 


Production  389  <doubly  qual  name  head>  ::=  VECTOR  ( 
Set  up  FIXL  for  production  384. 


Production  390  <double  qual  name  head>  : MATRIX  (<literal  exp  or  *> 
Set  up  FIXL  and  FIXV  for  production  384. 
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Production  391  < literal  exp  or  *>  : :=  <arith  exp> 

Drop  any  storage  on  the  indirect  stack  accumulated  by 
<arith  exp>.  Drop  any  arrayness  accumulated.  Put  integer 
value  of  <arith  exp>  in  FIXV.  Notice  that  if  the  <arith  exp> 
was  not  a compile  time  constant,  0 is  returned.  Negative 
constants  will  be  detected  elsewhere;  however,  -1  means  ”*" 
so  it  is  transformed  to  the  equally  illegal  value  0. 


Production  392  < literal  exp  or  *>  : * 

Set  FIXV  to  -1. 


Production  393  and  394  <prec  spec>  ; :=  SINGLE 

I DOUBLE 

Set  up  FIXL  and  FIXV  for  381. 


Production  395  and  396 

<minor  attr  list>  ::=  <minor  attribute> 

I <minor  attr  list>  <minor  attribute> 

Accumulate  attributes  in  ATTRIBUTE  and  illegal  attributes 
in  ATTR  MASK. 


Production  397,  398,  399,  400,  401,  403,  404,  407 

<minor  attribute>  : :=  STATIC 

I AUTOMATIC 
I DENSE 
I ALIGNED 
I ACCESS 
I REMOTE 
I RIGID 
I LATCHED 

See  FIXL  and  FIXV  for  396. 


Production  402  <minor  attribute>  ;;=  LOCK  (<literal  exp  or  *>) 

Restore  CONTEXT  to  DECLARE_CONTEXT  after  <literal  exp  or  *>. 
Set  LOCK#  to  the  value  of  the  literal  expression  and  set  up  FIXL 
and  FIXV  for  396. 
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Production  405 ^ 406 


<minor  attribute>  ; :=  <init/const  head>  <repeated  constant> 

I <init/const  head>* 

Set  that  there  is  or  is  not  an  *.  Drop  BI_FUNC_FLAG . 

Drop  any  implicit  transposes.  Restore  CONTEXT  to  DECLARE_CONTEXT . 

Fill  in  final  data  in  indirect  stack  entry  which  describes 
i/c  list.  (The  entry  was  built  by  409) . Save  a pointer  to  this 
entry,  it  is  the  key  to  the  whole  i/c  list. 

If  all  this  happened  while  processing  a template  declaration, 
throw  out  the  whole  thing  since  you  cannot  initialize  a template. 


Production  403  <minor  attribute>  : :=  NONHAL  (<level>  ) 

Save  <level>  in  NONHAL.  Set  up  FIXV  and  FIXL  for  396. 


Production  409  and  410  <init/const  head>  : :=  INITIAL  ( 

I CONSTANT  ( 

Set  up  FIXV  and  FIXL  for  396.  Set  BI_FUNC_FLAG . Get  and 
initialize  indirect  stack  entry  which  will  describe  the  i/c  list. 


Production  411 

<init/const  head>  <init/const  head>  <repeated  constant>. 

Everything  done  in  <repeated  constant>  : ;=  ... 

Production  412,  413,  414 

<repeated  constant>  : :=  <expression> 

I <repeat  head>  <variable> 

I <repeat  head>  <constant> 

If  initializing  to  the  NAME  of  something,  set  bit  in 
PSEDUO_TYPE  and  check  that  the  usage  of  the  NAME  pseudo  function 
was  legal  in  initialization  context. 

Drop  any  arrayness.  Build  an  i/c  que  entry,  count  the 
value  as  one  more  element  affected,  and  count  the  i/c  que  entry. 

If  there  was  a repeat  count,  then  build  an  i/c  que  entry 
for  the  repeat  count.  Since  FIXV  (<repeat  head>)  is  the  value  of 
NUM_ELEMENTS  at  the  beginning , NUM_ELEMENTS-FIXV  is  the  number  of 
elements  affected  by  the  repeat  count.  Multiplying  that  by  the 
value  of  the  repeat  count  and  adding  FIXV  back  in  again  yields 
the  correct  number  of  elements  affected  by  the  i/c  list. 
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Production  415 

<repeated  constant>  :;=  <nested  repeat  head>  <repeated  constant>) 
Join  middle  of  414. 

Production  416  <repeated  constant>  ;:=;  <repeat  head> 

disca?S^?h«^^/®  number  of  elements  to  be  skipped  and  then 
<repJa?  Sad>{°  indirect  stack  entries  for  the 

Production  417^  <repeat  head>  <arith  exp>  # 

i/o  qSS°en?2y.“’''''"'®°®-  entries.  Build 


Production  418,  419 

<nested  repeat  head>  : ;=  <repeat  head>  ( 

I <nested  repeat  head>  <repeated  constant> , 
Everything  is  done  by  414  and  417. 

£.y°^nction  420,  421  <constant>  : :=  <number> 

I <compound  number> 

Create  and  initialize  an  indirect  stack  entry. 

g-yo<^nction  422,  423  <constant>  : :=  <bit  const> 

|‘  <char  const> 

A.1.1  the  work  was  v one  by  266  or  271. 


"i  ■ 


Production  424,  425  <number>  ; := 


Purely  syntactic. 


< simple  number > 
<level> 
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SET_SYT_ENTRIES  — 
ENTER  DIMS 


- 1047500 

- 1043400 


This  routine  is  called  to  fill  in  information  accumulated 
about  an  identifier.  The  information  is  in  various  global 
variables.  ID_LOC  points  to  the  symbol  table  entry. 


Fill  in  type.  Check  for  consistency  and  set  LOCK_PLAG. 
Copy  ATTRIBUTES  to  SYT_FLAGS. 

Check  * size  on  character  strings. 

Enter  dimension  information  via  ENTER_DIMS. 

Check  copyness  for  structures. 

Make  tasks  and  programs  latched  events. 

Do  any  initialization. 

Zero, the  TYPE  array. 


ENTER_DIMS  sets  S YT_ARRAY ( ID_LOC ) to  point  to  an  EXT_ARRAY 
entry  that  describes  its  dimensions.  A new  EXT_ARRAY  entry  is 
produced  only  if  an  appropriate  one  does  not  already  exist. 


HALMAT_IN IT_CONS T 

H0W_T0_INIT_ARGS 

ICQ  ARRAYNESS  OUTPUT  - 


- 1015200 

- 1013200 

- 1002000. 


All  initialization  is  initiated  here. 

If  no  initialization  pending,  just  return. 


If  this  is  not  a factored  case,  reset  IC_LINE  to  return  the 
i/c  que  space  and  reset  PTR_TOP  to  return  the  indirect  stack  space. 


If  initialization  was  cancelled  due  to  an  error,  return. 


Call  HOW_TO_INIT_ARGS  to  figure  out  relation  between  the 
variables  to  be  initialized  and  the  values  found.  The  argument 
is  the  number  of  values  in  the  list.  The  value  returned  is: 


0 

1 

2 


there  are  fewer  values  than  required 
just  initialize  with  a single  value 


number  of  values  matches  one  element  of  an  array 
or  one  copy  of  a structure 


3 

4 


number  of  elements  exactly  matches  number  of  values 
number  of  values  greater  than  number  of  elements 


(,5 
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Case  0 


Is  legal  only  if  there  is  an  * in  the  value  list  — 
then  ICQ  OUTPUT  handles  the  element-by-element  initialization. 


Case  1 


If  there  was  an  *,  everything  is  simple  — just  call 
ICQ_OUTPUT  to  initialize  one  element.’  If  there  was  not  an 
*,  scan  through  the  i/c  que  until  a i/c  value  is  reached.  Now 
issue  HALMAT  to  do  the  initialization  unless  it  is  a constant 
element  and  a constant  value. 


Case  2 


Output  initialization  for  one  array  element.  If  there 
was  no  * in  the  value  list  call  ICQ_ARRAYNESS_OUTPUT  to 
issue: 


an  ADLP  or  IDLP  operator 

one  operand  for  each  dimension  of  arrayness 
a DLPE  operator. 

The  ADLP  or  IDLP  operator  will  be  moved  back  by  phase  1.5, 


Case  3 


Do  element-by-element  initialization  using  ICQ  OUTPUT. 


Case  4 


Same  as  3,  but  issue  error  message  first. 
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1003900 


ICQ_CHECK_TYPE  — 

Check  that  the  type  of  the  i/c  value  (received  in  first 
argument)  is  compatible  with  the  type  .of  the  element  to  be 
initialized.  Return  HALMAT  initialization  operator  of  proper 
type.  If  second  argument  is  false,  use  SCALAR_TYPE  instead 
of  actual  type  of  element  to  be  initialized  when  computing 
HALMAT  operator. 


ICQ_OUTPUT  — 1007200 

This  routine  handles  element-by-element  initialization. 

If  the  item  to  be  initialized  is  a structure,  issue; 


► 0 

2 

EXTN 

0 

0 

sym  pointer 

0 

SYT 

0 

1 

temp  pointer 

0 

SYT 

0 

1 

0 

1 

STRI 

0 

0 

HALMAT  pointer 

0 

XPT 

0 

1 

The  field  HALMAT  pointer  should  have  an  arrow  coming 
out  of  it  as  shown  in  left  margin. 

If  the  item  is  simple,  issue; 

0 1 STRI  0 0 

sym  pointer  0 SYT  0 1 


Having  issued  the  initial  list  header  code,  we  will  now 
traverse  the  list  in  the  i/c  que  issuing  HALMAT  for  each  queued 
value. 

CT  Counts  the  values  in  the  list. 

K Points  to  the  current  value. 

CT  LIT  Counts  the  number  of  successive  initializations 

~ into  consecutive  locations. 

If  IC  FORM=2,  this  is  a value  to  be  used,  not  an  indicator 
of  some  kind.  If  the  previous  element  was  also  IC_FORM=2 , there 
were  fewer  than  256  such,  it  was  immediately  before  this  one 
in  the  initial  list,  and  the  value  was  immediately  before  this 
one  in  the  literal  table,  the  short  form  can  be  used  — just 
count  in  CT  LIT.  In  the  other  case,  we  have  to  issue  a sequence 
of  HALMAT; 
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type 

2 

?INIT 

0 

0 

NUM+ELEMENTS 

0 

OFF 

0 

1 

literal  pointer 

0 

form 

0 

1 

where  ? = B,  C,  M,  V,  S,  I,  or  T 
the  item  to  be  initialized. 

depending 

on  the 

type  of 

If  IC_FORMj^2,  then  this  is  an  administrative  entry.  First 
go  back  and  fill  in  the  proper  count  in  the  second  operand  of 
the  initialization  operator.  If  IC  FORM=l,  this  is  a repeat 
count  — issue  the  HALMAT: 

nest  level 

2 

SLRI 

0 

0 

repeat  count 

0 

IMD 

0 

1 

number  of  items 
repeated 

0 

IMD 

0 

* 

1 

If  IC_F0RM=3,  this  is  the  end  of  a repeated  sequence,  just  issue: 

nest  level  0 ELRI  0 0 


where  the  nest  levels  are  check  for  consistency  by  phase  2. 

When  the  list  of  values  is  exhausted,  fill  in  the  proper 
count  in  the  second  argument  of  the  last  initialization  operation 
and  then  terminate  the  initialization  with  an  ETRI. 


5^ 
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4.4.4  <variable> 


209  - 


INTERMETBICS 


This  section  deals  with  productions:  193  - 205  and 
249. 


193 

1 

<STRUCT0RE  7AR> 

194 

1 

<BIT  VAR> 

195 

1 

<EVENT  VAR> 

196 

1 

<SDBBIT  BEAD>  <VAHIABI,E> 

197 

* 

1 

<CHAE  VAR> 

198 

1 

<KAnE  KEY>  ( <NAflE  VAR>  ! 

199 

<NAHB 

VAR> 

<VARIABI,E> 

200 

* 1 

<LABEL  VAR> 

201 

1 

<nODIFIED  ARITH  FUNO 

202 

5 

<H0DXFIED  BIT  FUNO 

203 

1 

<K0DIFIED  CHAR  FUNO 

204 

1 

<H0DIFIED  STRUCT  FONO 

205 

<NAHE 

EXP> 

::  = 

<NAHE  KEY>  ( <NAHE  VAH> 

209  <I,&BEL  VAB>.::=  <PREFIX>  <LABEL>  <S0BSCRIPT> 

210  <H0BIFIED  ARITH  FBNO  ::=  <PHEPIX>  <N0  ARG  ARITH  PUNO  <SDBSCRIPT> 

211  <M0DIFIED  BIT  FUKO  ::=  <PREFIX>  <N0  ARG  BIT  FORO  <StJBSCRIPT> 

212  <«0DIFIED  CHAR  FONO  : <PREFIX>  <N0  ARG  CHAR  FONO  <SDBSCRIPT> 

213  <M0DIFIED  STRUCT  FUNO  : :=  <PREFIX>  <N0  ARG  STROCT  PUNO  <S0BSCRIPT> 

214  <STR0CTURE  VAR>  ::=  <QUAL  ST30CT>  <S0BSCRIPT> 

215  <ARITH  VAR>  ;;=  <PHEFIX>  <ABITH  ID>  <SUBSCRIPT> 

216  <CHAR  VAR>  ;;=  <PBEFIX>  <CHAR  ID>  <SUBSCRIPT> 

217  <BIT  VAR>  :;=  <PREFIX>  <BIT  ID>  <SDBSCRIPT> 

218  <EVEHT  VAB>  ; <PREFIX>  <EVENT  ID>  <SUBSCRIPT> 

219  <00AL  STRGCT>  <STROCTDRE  ID> 

220  I <0OAL  STRUCT>  . CSTROCTDRE  ID> 

221  <PBEFIX> 

222  I <Q0AL  STRUCT>  . 

223  .<S0BBIT  HEAD>  <S0BBIT  KEY>  <S0BSCBIPT>  ( 

224  <SUBBIT  KEY>  SOBBIT 

225  <S0BSCB11?T>  <SUB  HEAD>  ) 

226  I <00AtIFIER> 

227  I <S>  <N0HBER> 

228  I <*>  <ARITH  VAR> 

229  I 

230  <SUB  START>  ::=  <$>  ( 


23  1 

1 <$>  ( d <PREC  SPEO  , 

232 

1 <SUB  HEAD>  ; 

233 

t <S0B  HEAD>  i 

234 

1 <SUB  KEAD>  , . 
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235  <SOB  HEAD>  ;;«=  <SOB  STXRT> 

236  I <StlB  STXBT>  <SUB> 

237  <SOB>  <SHB  EXP> 

238  i * 

239  I <SUB  PUN  HEXD>  <SOB  EXP> 

240  I <XRrTH  EXP>  XT  <SDB  EXP> 

241  <SOB  RON  HEXD>  <SOB  EXP>  TO 

242  <SDB  EXP>  :;=■  <XRITH  EXP> 

243  I <•  EXPRESSIOH> 

244  <#  EXPBESSIO»>  J :*  • 

245  I <»  EXPRESSION>  ♦ <TER«> 

246  I <•  EXPRESSIOH>  - <TERB> 


247  <=*1>  i:=  « 

248  <$>  S 

249  <XHD>  ::=  6 
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NAME 


Production  209  <name  key>  : := 
Set  various  context  flags. 


Production  210,  211,  212,  213^  214 

<label  var>  : :=  <prefix>  <label>  <subscript> 

<modified  arith  func>  ::=  <prefix>  <no  arg  arith  funO  <subscript> 
<modified  bit  funo  <prefix>  <no  arg  bit  funo  <subscript> 

<modified  char  func  : ;=  <prefix>  <no  arg  char  funO  <subscript> 

<modified  struc  func  : :=  <prefix>  <no  arg  struct  func>  <subscript> 

For  non-built-in  functions,  fall  into  production  216. 

For  built-in  functions  there  cannot  be  any  subscripting.  Set 
up  TEMP_SYN  for  CHECK_NAMING.  Copy  the  FIXL  and  VAR  fields  from 
the  function  to  the  modified  function.  Pop  the  indirect  stack 
down  to  the  modified  function. 


Production  215  <structure  var>  ::=  <qual  struct>  <subscript> 
Jump  into  production  216. 


Production  216,  217,  218,  219 

<arith  var>  :;=  <prefix>  <arith  id>  <subscript> 

<char  var>  : ;=  <prefix>  <char  id>  <subscript> 

<bit  var>  ::=  <prefix>  <bit  id>  <subscript> 

<event  var>  ;:=  <prefix>  <event  id>  <subscript> 

HI  points  to  the  indirect  stack  entry  for  the  <prefix>. 

This  will  become  the  indirect  stack  entry  for  the  <...var>. 

If  the  <prefix>  was  empty  , copy  the  symbol  table  pointer, 
STACK_PTR  and  VAR  entries  from  the  id.  If  there  was  a real 
<prefix>,  append  the  rest  of  the  name  to  the  prefix  and  diddle 
the  output  writer. 

ATTACH_SUBSCRIPT  is  described  immediately  after  this  produc- 
tion. If  we  have  structure  subscripting  issue  the  TSUB  now. 

maj_struc  1 TSUB  0 0 

sym  pointer  for  structure  0 form  0 1 

Emit  the  rest  of  the  subscripting  information  via  EMIT_SUBSCRIPT 
and  then  repair  the  number_of_operands  field  in  the  TSUB.  Change 
the  <...  var>  into  a VAC  pointing  to  the  TSUB. 
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Pop  the  indirect  stack. 


_ ,,  have  a qualified  structure,  issue  an  EXTN  ooerator 

quaSffoatiSn?  P?u 

P.®ntry  for  the  qualified  structure  and  fill  in 
accumulated  information  into  the  EXTN  operator. 

At  this  point  H2  = to  EXTN  operator  is  issed 

l“l  otherwise 

to  taki  subscripts  hanging,  issue  a DSUB 

-F-jn  • them;  issue  the  subscripts  via  EMIT  SUBSCRIPT, 

proper  number  of  arguments  in  the  DSUB,  indicate 
that  the  whole  subscripted  item  is  a VAC. 
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ATTACH_SUBSCRIPT 

GET_ARRAYNESS 

ATTACH_SUB__STRUCTURE 

ATTACH_SUB_ARRAY 

ATTACH_I3UB_C0MP0NENT 

MATCH_ARRAYNESS 

SLIP_SUBSCRIPT 

AST_STACKER 

REDUCE_SUBSCRIPT 

CHECK_SUBSCRIPT 

EMIT  SUBSCRIPT 


955700 

871100 

953100 

949300 

942800 

887800 

941900 

940400 

932600 

922700 

962300 


ATTACH_SUBSCRIPT 

When  this  routine  is  entered: 

INX (< subscript >)  = SUBjCOUNT 

VAL_P  (<subscript>)  = ARRAY_SUB_COUNT 

PSEUDO_LENGTH (< subscript >)  = STRUCTURE  SUB  COUNT 

PSEUDO_LENGTH (<prefix>)  = VAR  LENGTH (id) 
PSEUDO_TYPE (<pref ix>)  = SYT_TYPE (<id> ) 

FIXL (<prefix>)  = symbol  table  pointer  of  id 


GET_ARRAYNESS  sets  up  the  VAR_ARRAYNESS  array  and  fills 
in  arrayness,  copiness  and  NAME  bits  in  VAL_P. 

In  general,  there  will  have  been  some  subscripting  so 
INX  (INX)  is  usually  positive.  PTR (<subscript>)  points  to  a 
descriptor  of  the  entire  subscript.  Stacked  immediately 
above  this  descriptor  on  the  indirect  stack  is  one  entry  for 
each  sub  , number,  etc.  NEXT_SUB  will  be  incremented  as  parts 
of  the  subscript  are  handled  so  that  it  always  points  at  the 
current  part  under  examination. 

If  there  was  a structure  subscript  terminated  by  a 
check  it  for  validity  via  ATTACH_SUB_STRUCTURE . If  there 
was  an  array  subscript  terminated  by  a check  it  for 

validity  via  ATTACH_SUB_ARRAY . 

If  the  item  can  have  component  subscripting:  call 
ATTACH^SUB_STRUCTURE  and  ATTACH_SUB_ARRAY  to  simulate 
subscrTpting.  Then  process  the  component  subscript  via 
ATTACH_SUB_COMPONENT . 

Otherwise,  if  the  item  has  arrayness  and  did  not 
have  a demarked  array  subscript,  simulate 
an  "*"  structure  subscript  and  process  the  remaining 
subscript  as  an  array  subscript. 
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otherwise,  if  the  item  has  copiness  and  did  not 
have  a demarked  structure  subscript,  process  the 
remainxng  subscript  as  a structure  subscript. 

Finally , call  MATCH  ARRAYNESS  to  check  that  the  residual 
arrayness  matches  the  rest  of  the  statement's  residLIa^rayness 

trueroSLwul?  had  no  oopiness. 


ATTACH  SUB_STRUCTURE  and  ATTACH_SUB_ARRAY  handle  structure 

respectively.  They  check  that  the  number 
an  H* legal  and  then  call  AST  STACKER  to  simulate 
an  subscript  or  REDUCE_SUBSCRIPT  for"real  subscripts  If 

nSt”ISb  Ivsrthem?  SI.IP_SUBSCRIPTS  advanies 


REDUCE_SUBSCRIPT  receives  three  arguments: 
- MODE 


SIZE 

FLAG 


the  size  of  the  dimension  being  processed. 

indicator  for  level  of  checking  required  on 
TO  and  AT  partitions : 

0 - normal 

1 “ even  zero  length  permitted 

2 - must  be  greater  than  one 

In  addition,  NEXT_SUB  is  pointed  at  the  subscript 

the  routine  is  to  check 

the  validity  of  the  subscript,  generate  correct  forms,  types, 

subscript  and  generate  HALMAT  for  scalar/inteqer 
and  #I  expression  calculations.  axcur/ xnreger 

a”  subscript,  just  set  FIX_DIM  to  the  size  of 
tne  dimension  being  processed. 

- For  a simple  index,  CHECK_SUBSCRIPT,  FIX  DIM=1. 

For  T^  TO  T2  CHECK_SUBSCRIPT  for  Tj^  and  T and  make 
sure  partition  is  of  an  acceptable  size. 

For  T^  AT  T2  a simplified  version  of  TO. 

of  pPUCE_snBSCRIPT  are  the  setting 

or  IND  LINK  to  the  last  subscript  processed  and  the  linking  of 
all  entries  for  a given  subscript  via  their  PSEUDO_LENGTH  fields. 
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CHECK_SUBSGRIPT  fills  in  the  proper  PSEUDO_FORM  and 
PSEUDO_TYPE  for  an  entry.  If  runtime  arithmetic  is  needed 
for  #l  expression  or  scalar  to  integer  conversions  the 
HALMAT  is  generated  here. 

ATTACH_^SUB_COMPONENT  handles  component  subscripting 
for  character  and  bit  strings,  vectors  and  matrices.  It 
basically  does  a REDUCE_SUBSCRIPT,  fills  in  the  proper 
bits  in  VAL_P  and  checks  for  proper  number  of  subscripts . 
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Production  220  <qual  struct>  : ;=  <structure  id> 

Build  an  indirect  stack  entry  for  <qual  struct>  and 
fill  in  FIXL  and  FIXV. 

Production  221  <qual  struqt>  ;:=  <qual  struct>  <structure  id> 

Build  an  indirect  stack  entry  for  the  qualifier.  This  is 
right  on  top  of  the  previous  entry  so  it  needs  no  pointer  to 
be  accessed. 

Diddle  the  output  writer. 

Production  ,222  <prefix>  :;=  <empty> 

Build  a dvun;r.y  indirect  stack  entry. 

Production  223  <prefix>  : :=  <qual  struct>. 

Diddle  the  output  writer.  Inherit  all  stack  entries 
from  <qual  struct>.  ■ 

Production  224  < subbit  head>  ::=  < subbit  key>  <subscript>  ( 

Copy  indirect  stack  entry  from  < subscript > to  subbit  head 

If  the  <subscript>  was  non-empty,  then  check  that  there 
is  exactly  one  component  subscript. 

Production  225  < subbit  key>  : :=  SUBBIT 

Set  up  for  pretty  output.  ■ 

Production  226  <subscript>  : ;=  <sub  head>) 

The  <subhead>  cannot  be  an  empty  subscript.  Descrement 
SUBSCRIPT  LEVEL. 
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Production  227  <subscript>  ::=  <qualifier> 

Zero  all  the  counts.  Notice  that  STRUCTURE  SUB  COUNT 
and  ARRAY_SUB_COUNT  are  normally  initialized  to  —1  not  zero  and 
that  tests  for  negative  are  made  in  several  places. 

Production  228  <subscript>  : ;=  <$>  <number> 

Build  an  indirect  stack  entry  for  subscript.  Fill 
in  form  and  type  of  stack  entry  for  number  . 

Production  229  joins  here. 

Fill  in  INX  and  VAL_P  entries  for  <number>  or  <arith  var>. 
Initialize  the  subscript  counters  (n.b.  these  are  all  LITERALLYs) . 
Decrement  SUBSCRIPT  LEVEL. 


Production  229  <subscript>  ::=  <$>  <arith  var> 

Guarantee  that  the  <arith  var>  is  either  an  integer  or  a 
scalar  via  lORS,  generate  a cross  reference,  and  join  228. 


Production  230  <subscript>  <empty> 

Set  PIXL  to  indicate  that  this  is  a dummy  and  join 
production  249. 


Production  231  <substart>  ;:=  <$>  ( 

Initialize  counters  which  describe  number  of  various  kinds 
of  subscripts. 


Production  232  <substart>  ;:=  <$>(§  <prec  spec>  , 

Copy  the  precision  into  PSEUDO  FORM (< substar t>)  and 
join  231. 
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Production  233  <sub  start>  ::=  <sub  head>; 

There  has  to  be  a <sub>  preceding  the  " ; " and  there 
must  not  have  been  a preceding  " ; " . 


Production  234  <sub  start>  <sub  head>: 

There  has  to  be  a <sub>  preceding  the  and  there  must 
not  have  been  a preceding  ” : " . 


Production  235  <sub  start>  <sub  head> , 

There  has  to  be  a <sub>  preceding  the  " . 


Production  236  <sub  head>  <sub  start> 

Reset  SUB_SEEN  so  that  checks  on  SUB_SEEN  will  show  false 
but  it  still  indicates  the  whole  listing. 


Production  237  <sub  head>  : ;=  <sub  starts  <sub> 
Count  the  <sub>. 


Production  238  <sub>  ::=  <sub  exp> 

Set  INX  to  indicate  <sub  exp>  type  <sub>. 


Production  239  <sub>  : ;=  * 

Build  an  indirect  stack  entry  for  <sub>. 


Production  240  <sub>  ; ;=  <sub  run  head>  <sub  exp> 

INX  to  indicate  that  <sub  run  head>  and  <sub  exp>  are 
parts  of  TO  <sub>. 


Production  241  <sub>  :;=  <arith  exp>  AT  <sub  exp> 

Check  that  <arith  exp>  is  an  integer  or  a scalar.  Set  INX 
to  indicate  that  <arith  exp>  and  <sub  exp>  are  parts  of  an 
AT<sub>.  Copy  PTR(<sub  exp>)  down  one  space  in  the  stack  so  that 
the  two  top  stack  elements  will  point  at  the  two  <sub>  constituents. 
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Production  242  <sub  run  head> 


<sub  exp>  TO 


Nothing. 


Production  243  <sub  exp>  ;:=  <arith  exp> 

Check  that  expression  is  integer  or  scalar. 


Production  244  <sub  exp>  <#  expression> 

If  <#  expression>  = #,  generate  an  indirect  stack  entry. 

Production  245  <#  expression>  ::=  # 

Set  PIXL  to  indicate  only  a #. 


Production  246/  247  <#  expression> 


:=  <#  expression>  + <term> 
I <#  expression>  - <term> 


+ nr  <#  expression^  IS  just  a sharp,  set  PIXL  to  indicate 

+ or  otherwise,  call  ADD__AND  SUBTRACT  to  add  together  the 

current  non-#  part  of  <#  expresiion>  and  the  < term?! 

Production  248  <=1>  ; ;=  = 

Save  arrayness  of  left  side. 


Production  249  <$>  : ;=  $ 


If  this  is  a subscript  on  a function  invocation  issue: 

function  level  i XXST  N 0 

sym  pointer  for  0 SYT  0 1 

function  name 

If  this  IS  not  already  a subscript  then  SAVE  ARRAYNESS. 


Increment  SUBSCRIPT_LEVEL  by  0 for  <empty>  subscript  or 
1 for  $.  Build  empty  indirect  stack  entry  for  the  subscript, 
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ADD  AND  SUBTRACT 

--  851000 

ARITH  LITERAL 

— 843600 

LIT  RESULT  TYPE 

--  849500 

MATCH  ARITH 

--  847500 

MATCH  SIMPLES 

— 834100 

MATRIX  COMPARE 

— 819200 

VECTOR  COMPARE 

— 818500 

ARITH_LITERAL  sets  up  its  two  arguments  for  a MONITOR 
call  and  returns  true  if  they  are  both  literals. 

LIT_RESULT_TYPE  returns  INT_TYPE  if  both  of  its  arguments 
are  integers  and  the  result  of  the  operation  is  integer izeable; 
otherwise  it  returns  SCALAR_TYPE. 

MATCH  ARITH  checks  that  addition  and  subtraction  are  defined 
between  its  two  arguments.  If  they  are  integer/scalar  MATCH_SIMPLES 
generates  any  necessary  integer  to  scalar  conversion.  If  they 
are  matrices  or  vectors,  MATRIX_COMPARE  and  VECTOR_COMPARE 
check  that  the  sizes  match. 

ADD  AND_SUBTRACT  performs  an  addition  (arg=0)  or 
subtraction  (arg=l)  on  the  elements  pointed  to  by  SP  and  MP. 

If  both  operands  are  literals,  the  computation  is  done  by 
a MONITOR (9)  call.  If  they  are  not  both  literals,  then 
HALMAT  code  is  generated  to  do  the  arithmetic  creating  a 
VAC.  In  either  case  the  result  goes  into  MP  and  the  indirect 
stack  is  popped  down  to  there. 

ASSOCIATE  — 1095700 

Check  that  any  overpunches  are  consistent  with  the  final 
type  after  subscripting.  Insert  proper  type  for  the  output 
writer. 

If  this  is  a NAME  or  % macro  argument,  then  SAVE_ARRAYNESS . 

If  all  the  copies  were  subscripted  out,  pop  off  the  value  just 
saved  and,  if  requested,  fix  up  the,  HALMAT  pointed  to  by  the 
argument  (TAG) . 


Set  brace  and  bracket  flags  for  the  output  writer. 
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4,4.5  <expression>  and  <relational  exp> 

This  section  deals  with  productions: 

4-32,  82-120,  121-135,  177,  178, 

181-192,  206-208,  250-272. 

Notice  that  productions  18-20  are  grouped  with  production 
28  inunediately  before  27,  rather  than  in  the  obvious  niimerical 
order . 


iJ  ^APTTH  FXP>  ;:=  <T’?P.1> 

5 I + <Tpr^'1> 

6 I - 

7 I <ASTTH  ^XP>  + <TSFH> 

3 I <ARITH  ':XP>  - <T’^P«> 

P <TPPt1>  ;:=  <PP0DI1CT> 

ro  I <p''oriicr>  / 

11  <PP0DPCT>  <f;c'?or> 

12  I <Pf.CT0P>  * <PE0ni.TC'^> 

13  I <FACT0P>  . <PPOnOCT> 

m I <FACT0F.>  <PP0DDCT> 

15  <FACT0?>  <PPIMAP.Y> 

Ifi  I <PPrMAEY>  <**>  <FACT0R> 

17  <**>  ; ;=  ■ 

IP  <PBE  PPIMAPY>  ::=  ( <Ari7H  rXP>  ) 

13  I <NII1SSR> 

20  |.  <C0H’-0tJMP  MJMBEP> 

21  <APITH  FIIMC  HEAD>  <APITH  PIJNO 

22  I <A'’XTR  C0BV>  <StJBSCFIPT> 

23  <APITH  COPV>  ;:=  IRTEG^'P 

24  I SCALAP 

25  I VFC^OP. 

26  I MATPTX 

27  <P?IFA’^Y>  ::=  <A?r7H  VA”> 

23  <PRE  PFIEAPy>  <AniTH  FtINC  HFAD>  ( <CAXL  LI5T>  ) 

23  <PFI'1AFY>  ::=  <FOPTFTST  A^TTH  FUVO 

30  I <AF1?H  INLTN-  DFF>  <BL0CK  B0DY>  <CiOSXNG>  ; 

31  I <PFK  PPTf'APY> 

32  I <PFF  P”T?!AP.Y>  <0IIA1,IF1FP> 


■ 4-147  ■ ' 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


<BTV  PPIH> 


82 

83 

flU 

35 

86 

87 

88 
39 


:;=  <PIT  V»P> 

I VA?> 

I <FVENT  VA8> 

I <FIT  ■>CTMSr> 

I ( <3IT  ''XP>  ) 

I <f'08Tri"»'  ETT 

I <PIT  I8IIV**  <BI.r»CK  ROf'Y>  <T.ir\’^lVQ>  ; 

I <fnBPi'r  <"y.'>'TS3:ov>  ) 


90 


<BIT  F8NC  H**AD>  ( <CAT,t  II8T>  ) 


8 1 <BIT  Ftmc  HFAO>  ;:=  <*8X7  FIINO 
02  I PT"'  <snn  OF  QnALI^TFr> 


01  <PIT  CAT>  <BIT  PRt8> 

04  I <3TT'  C?T>  <CAT>  <niT  PRT8> 

95  I <NC?>  <BIT  P?ia>  • 

06  I <BIT  CAT>  <CA'^>  <N0T>  <BIT  PRIB> 


97  <BIT  ?.".C?0r>  ; :=  <BTT  CAT> 

09  I <3IT  FACT0P.>  <ANP>  <BIT  CAT> 


00  <BTT  FXF>  ; :=  <BTT  FACT09> 

IPO  I <BIT  FXP>  <0P>  <BIT  FACT0g> 


10  1 
102 
10-1 
10  4 
10  5 
106 
107 
1C9 


<RELATTCVAL  0P>  : 


I <N0T>  = 
I < 

I > 

I < = 

I > = 

I <N0T>  < 
I <Mor>  > 


100 

iin 

111 

112 

113 


<C0MPAPTS0K> 


= <AFITH  FXP>  <FE1ATI0NAL  0P>  <ARI?H  EXP> 

I <ciiAo  <»rr,A'^ioi!AL  rp>  <char  fxp> 

I <BIT  CA?>  <P5LATIONAL  0P>  <BIT  CAT> 

I <STF0CTUF,£  FXP>  <FFLATICNAL  0P>  <SIFUC‘rU!(B  EXP> 
I <MAME  »’KP>  <RFLATION.At  0?>  <NAME  EXP> 


114 

115 

<PFLATICNAL 

FACTOR>  : :=  <REI,  PRTM> 

1 <PEtA'T'rONAI.  FACTCR>  <ANB>  <FFL 

P3.T1> 

1 16 
117 

<RELATICNAL 

EXP>  :;=  <PSLATIONAL  FACrOR> 

1 <PFLATIONAL  EXP>  <OR>  <RELATIONAL 

f ACTOR> 

118 

110 

120 

<PFL  PFIM> 

; :=  { <P.FLATTONAL  EXP>  ) 

) <POT>  ( <RELATIONAL  EXP>  ) 
I <COMPAPISON> 

j: 
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121 

122 

123 

12'1 

12S 

<CHAH 

PPin>  ;:=  <CHA»  VAR> 

1 <CHAP  CONST> 

1 <MOrT?IED  CHA1»  FUNO 

1 <C!IAP  INLTNE  PEF>  <BLOCK  BODy>  <CLOSrNG> 
1 <CRA''  ’^UNC  HEAr>  ( <CALL  LTST>  ) 

126 

1 ( <CHAB  BXP>  ) 

127 

128 

<CHA?. 

FONC  HEAT1>  : :=  <CHA5  'I1Nr> 

) CHA7ACTP?.  <SUP  OR  0«ALIFIER> 

129 

130 

<SUB  0 

~ 0nALIFTER>  ::=  <SnBSCRTPT> 

1 <BT"’  OUALI'IER> 

1?  1 

132 

133 

134 

n'; 

<CHA8 

■='XP>  <CHAP  P'^TN> 

1 <CHAF  ?vp>  <CAT>  <CHA7  PPIM> 

1 <CHAR  <CA"’>  EXP> 

1 <?FITU  "Y?>  XCAO  <f’'TTH  ’'XP^ 
1 <A.’’I'ru  ~X^>  <CA7>  <CHA" 

177  <CALL 

na 


;:=  <LisT  7xp> 

I <CALL  LTS'^> 


<i.isT  ^yp> 


181 

182 

1.8.3 

184 

188 

<3XP“ESSTCN> 

; :=  <AriT.8  Exp> 

1 <BI'^  EXP> 

1 <CfIA8  EXP> 

1 <S'^PIJC’^UO«'  rxp> 

I <MAME  EXP> 

186 

187 

188 
189 

<.5TP '1079*^  E 

x?>  : :=  <s'r?nc?nPE  vaf> 

1 <.NOOT'=‘IBD  STRUCT  FfjMC> 

1 <ST8UC  INLIN'  ’'EF>  <BL0CK 

80ny.>  <CL0.8TNG>  5 

1 < STRUCT  POKC  hEAD>  ( <CALL 

LIST>  ) 

180 

<.9T’f:UCT  FUNC 

UFAD>  : <ST’=’UCT  FUMO 

191  • 

192 

<LIS?  EXF>  : 

:=  <EX?FFS.SION> 

I <ARITH  FXP>  # <EXPR?SSION> 

206  <NAM?  EXP>  : 

207 

208 


<NANE  K5V>  ( <NA!1E  VAR>  ) 

I VOLL  ' 

I <NANE  KEY>  ( NULL  ) 
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250 

251 

<ANH>  ; K 

1 AVT) 

252 
2 53 

<0?>  1 
1 OR 

25U 

Pt'' 

<NC?>  ::=i 

. t ‘’O'T 

256 

<CA”>  ::=  II 

257 

1 CAT 

25P 

<oriALi’^rF3> 

259 

<BTT  OrTALIFl'’R> 

260 
261 
26  2 
26  3 

<RADIX>  ; •=  ffEX 
1 OCT 
1 5TR 
1 DEC 

264 
26  5 

<BIT  const  HrAP> 

26  6 

<BIT  CCNST>  ;•=  < 

I <PADIX>  ( <Nt/MBB5>  ) 


I TT?rjE  ^CHS?  STRINGS 

I FALSE 
I CN 
I OFF 

<CHAr  CCMST>  ; ;=  <cha:j  SmiNO 

I CHAR  ( <NrrEBEE>  ) <cba5  STRIMO 
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Production  4,  5 <arith  exp>  : :=  <term> 

I + <t,erm> 

Nothing. 

Production  6 <arith  exp>  ; ;==  -<term> 

If  the  <term>  is  a constant,  negate  it  at  compile  time; 
otherwise,  generate  HALMAT  to  do  the  negation. 

Production  7 , 8 <arith  exp>  : :=  <arith  exp>  + <term> 

I <arith  exp>  - <term> 

ADD_ANnuBTLcT™^  Perform  compile  time  add  or  subtract)  via 

Production  4 <term>  : :=  <product> 

Nothing. 

Production  10  <term>  ; ;=  <product>/<term> 

If  the  arguments  are  constant,  do  the  division  at 
compile  time. 

Force  divisor  to  be  scalar.  If  numerator  is  integer, 
force  it  to  scalar.  Issue  HALMAT  to  perform  the  division. 

Pop  the  indirect  stack. 

Production  11  <produGt>  ; :=  <factor> 

Because  multiplication  is  associative,  the  compiler  can 
perform  multiplies  in  the  order  it  wants  to.  The  best  order 
is  much  faster  than  the  worst.  By  making  productions  12,  13, 
and  14  right  recursive,  the  compiler  forces  all  multiplies  : 
to  stack  up.  This  production  is  reached  at  the  point  where 
all  the  multiplies  must  be  issued  ^nd  it  issues  them,  thus 
leaving  nothing  for  productions  12,13,  and  14. 

Count  up  the  number  of  dot  products,  cross  products, 
matrices,  vectors,  and  scaler$  involved  in  the  whole  product. 

If  there  are  no  multiplications  to  be  done , do  nothing . 

Move  through  the  stack  generating  multiplies  for  all  the 
scalars  via  MULTIPLY  SYNTHESIZE. 
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If  there  are  no  vectors  in  the  product  then  move  through 
the  stack  generating  multiplies  for  all  the  matrices.  Multiply 
the  final  matrix  product  by  the  final  product  of  scalars  — all 
done. 

If  there  are  vectors  then  we  want  to  do  the  matrix*vector 
calculations  first.  Scan  from  left  to  right  finding  strings 
of  the  form; 


! 


i 

[ 

r 

i . 
i 


matriXj^  * matrix2  * 
and  generating  HALMAT  to  compute ; 

vector  2 = matrix^^  * 

followed  by  HALMAT  to  compute: 


. . . * vector 

(matrix,  * ...  * (matrix  * vector)) 


vector  3 = ((vector-  * matrix  .,)+..**  matrix  ^ ). 

n+l  n+m 

If  there  are  no  vector  — vector  multiplications,  multiply  the 
final  product  of  vectors  by  the  final  .product  of  scalars.  Now  copy 
all  the  information  about  the  result  into  the  indirect  stack 
entry  of  the  leftmost  factor  in  the  product.  The  only  product 
that  can  be  left  is  a single  outer  product  so  generate  the 
HALMAT  if  necessary  — all  done. 

Move  through  the  stack  generating  HALMAT  to  do  all  the 
cross  products.  If  there  are  no  dot  products  then  join  the 
preceding  code  for  "all  vector  products  done". 

Move  through  the  stack  generating  HALMAT  to  do  all  the 
dot  products.  Join  preceding  code  to  multiply  in  the  final 
product  of  scalars. 

Productions  12,  13,  14  <product>  : ;=  <factor>  * <product> 

I <factor>  • <product> 

I <factor>  <product> 

See  production  11. 


Production  15  <f actor > ; <primary> 
Just  syntax. 


4r-152 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


Production  16  <factor>  ; :=  <primary>  **  <factor> 

Generate  a cross  reference  for  primary  and  decrement 
EXPONENT_LEVEL . 

For  matrices,  check  that  the  exponent  is  not  a "T” 
and  that  it  is  an  integer  constant.  Then  generate  a HALMAT 
MEXP.  If  the  exponent  is  a ”T" , generate  a HALMAT  MTRA. 

Vectors  cannot  have  exponents. 

For  integers  and  scalars,  try  doing  it  at  compile  time. 

If  that  fails  then  generate  an  IPEX  for  an  integer  to  a positive 
integer  constant  power.  If  that  fails,  force  <primary>  to  a 
scalar  and  generate  an  SEXP  or  SIEX. 

Generate  a cross  reference  for  <factor>. 


Production  17  <**>  :;=  ** 

Bump  EXPONENT_LEVEL. 

Production  21  <arith  func  level>  ;:=  <arith  funO 
> START  NORMAL  FCN. 


Production  22  <arith  func  head>  : :=  <arith  conv>  <subscript> 

Set  global  flags  to  point  to  <subscript>  entries  on  indirect 
stack.  If  the  subscript  is  null,  then  fill  in  default  sizes; 
otherwise,  use  ARITH_SHAPER_SUB  to  compute  the  correct  size  and 
check  the  subscript  for  validity.  Build  a function  stack  entry. 
Issue  HALMAT  to  start  the  shaping  function  reference. 


Production  23,  24,  25,  26  arith  conv  :;=  INTEGER 

I SCALAR 
I VECTOR 
I MATRIX 

Set  up  FIXL  for  production  22. 
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Production  18  <pre  primary>  ::=  (<arith  exp>) 

Copy  the  VAR  and  indirect  stack  entries  from  <arith  exp> 
to  <pre  primary>. 

Production  19,  20_  <pre  primary>  = =| 

Build  an  indirect  stack  entry. 

Production  28  <pre  primary > : :=  <arith  func  head>  (<call  lxst>) 

END_ANY_FCN . 

Production  27  <primary>  : :=  <arith  var> 

Nothing. 

Production  29  <primary>  ::=  <modified  arith  func> 

SETUP_NO_ARG_FCN . 

Production  30  <primary>  ::=  <arith  inline  def>  <block  body>  <closing>; 

Set  up  and  then  join  production  289  to  handle  the  closing  J 

of  the  inline  block. 

Production  31  <primary>  : :=  <pre  primary> 

Just  drop  FIXF. 

Production  32  <primary>  <pre  primaryxqualif ier> 

Generate  code  to  do  the  precision  conversion  and  then  pop 
indirect  stack  down  to  the  <primary>.  Drop  FIXF. 
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Production  82  <bit  prim>  ::=  <bit  var> 

Generate  a cross  reference  and  set  that  this  is  not 
an  event. 

Production  83  <bit  prim>  : :=  <label  var> 

Generate  a cross  reference.  Set  PSEUDO__TYPE  and 
PSEUDO_LENGTH  to  bit  string  length  1. 

Production  84  <bit  prim>  : :=  <event  var> 

Same  as  83. 


1 


Production  85  <bit  prim>  ; :=  <bit  constant> 

Same  as  82  without  the  cross  reference. 

Production  86  <bit  prim>  : :=  (<bit  exp>) 

Copy  the  indirect  stack  entry  from  <bit  exp>  to 
<bit  prim> . 

Production  87  <bit  prim>  ::=  <modified  bit  func> 

SETUP_NO_ARG_FCN . Join  82. 

Production  8 8 <bit  prim>  : :=  <bit  inline  def>  <block  body>  <closing> 
Same  as  production  30. 

Production  89  <bit  prim>  ; <subbit  head>  <expression>) 
END_SUBBIT_FCN.  Set  that  was  not  an  event. 

Production  90  <bit  prim>  : <bit  func  head>  (<call  list>) 

END  ANY  FCN.  Set  that  was  not  an  event. 


^ ■ ... 
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Production  91  <bit  func  head>  : :=  <bit  funO 

■'  ""  I#  *► 

START  NORMAL_FUNCTION.  If  user  defined  function, 

ASSOCIATE.- 

Production  92  <bit  func  head>  : :=  BIT  <sub  or  qualifier> 

Set  for  pretty  output.  Copy  the  indirect  stack  entry 
from  <sub  or  qualifier>  to  <bit  func  head>.  Set  that  the 
type  is  bit.  Build  a function  stack  entry. 


Production  93  <bit  cat>  ::=  <bit  prim> 
Just  syntax. 


Production  94  <bit  cat>  <bit  cat>  <cat>  <bit  prim>  ii 

i; 

I 

Set  that  it  is  not  an  event.  Generate  HALMAT  to  do  | 

the  catenation.  ■ 


Production  95  <bit  cat>  :;=  <not>  <bit  priin> 

If  <bit  prim>  is  a literal,  do  the  NOT  at  compile  time; 
otherwise,  generate  HALMAT  to  do  it.  Drop  the  "2’’  bit  in 
INX.  Copy  the  indirect  stack  entry  from  <bit  prim>  to 
<bit  cat> . 

Production  96  <bit  cat>  : ;=  <bit  cat>  <cat>  <not>  <bit  prim> 

Generate  HALMAT  to  do  the  NOT  and  then  join  production 
94. 


Production  97  <bit  factor>  : :=  <t)it  cat> 
Just  syntax. 


Production  98  <bit  factor > : :=  <bit  factor>  AND  <bit  cat> 

If  both  operands  are  literals,  do  the  AND  at  compile  time; 
otherwise,  generate  HALMAT  to  do  it.  Notice  that  BIT_LITERAL 
also  puts  the  values  of  the  literals  in  their  FIXV  entries. 


Production  99  <bit  exp>  <bit  factor> 

Just  syntax. 
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Production  100  <bit  exp>  :;=  <bit  exp>  OR  <bit  factor > 
Join  production  98. 

Production  101,  102,  103,  104,  105 ^ 106,  107/  108 

<relational  op>  ; :=  = 

I <not>  = 


i <not>  < 

I <not>  > 

Set  up  REE_OP  for  <comparison>  productions. 

Production  109  <comparison>  : :=  <arith  exp>  <relational  op>  <arith  exp> 

Match  the  types  of  the  operands  if  possible.  Issue 
a HALMAT  comparison  for  the  appropriate  arithmetic  type. 

Production  110/  111 

<comparison>  ::=  <char  exp>  <relational  op>  <char  exp> 

I <bit  cat>  <relational  op>  <bit  cat> 

Emit  appropriate  HALMAT  comparison  operation. 


Production  112 


<comparison>  ; ;=  <structure  exp>  <relational  op>  <structure  exp> 

STRUCTURE_COMPARE (a^,  a2»  eclass,  num)  does  a structure  walk 
of  templates  an  and  a2.  If  they  are  not  equivalent,  it  issues  the 
error  message  In  class  eclass  and  number  num. 

Emit  a structure  comparison  HALMAT  operation. 

Production  113 

<comparison>  ;:=  <name  exp>  <relational  op>  <name  exp> 

NAME_COMPARE (ai,  a2,  eclass,  num,  fs)  compares  the  names 
described  by  stack  entries  ai  and  a2«  If  they  are  not  NAMES 
of  comparable  things,  issue  the  error  message  in  class  eclass 
and  number  num.  If  fs  then  their  arrayness  stack  entries  must 
match;  Otherwise,  the  arrayness  stack  entry  of  ai  must  match 
CURRENT  ARRAYNESS.  Also  check  that  the  data  is  not  locked. 
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COPINESS (1 ,r)  compares  the  copiness  of  its  operands, 
identical  copiness  ->  return  0 

- copies  (r)  = 0 ->■  make  copies  (r)  = copies  (1)  and  return  2. 

- copies  (1)  = 0 ■>  return  4 

- none  of  the  above  -*■  return  3 

NAME_ARRAYNESS (SP)  sets  up  CURRENT_ARRAYNESS  to  describe 
the  item  the  NAME  is  pointing  at. 

Finally,  emit  a name  comparison  HALMAT  instruction. 

Production  114  <relational  factor > : ;=  <rel  prim> 

Just  syntax. 

Production  115 

<relational  factor>  ::=  <relational  factor>  <and>  <rel  prim> 
Generate  a HALMAT  CAND  instruction. 

Production  116  <relational  exp>  ::=  <relational  factor> 

Just  syntax. 

Production  117 

<relational  exp>  ; :=  <relational  exp>  <or>  <relational  factor > 
Issue  HALMAT  COR  instruction. 

Production  118  <rel  prim>  : := {<relational  exp>) 

Copy  indirect  stack  pointer  to  <rel  prim> . 

Production  119  <rel  prim>  ; <not> (<relational  exp>) 

Issue  HALMAT  CNOT  instruction  and  then  copy  indirect  stack 
pointer  to  <rel  prim>. 

Production  120  <rel  prim>  ::=  <comparison> 

Relational  operators  other  than  = and  — 1=  are  defined  only 
for  unarrayed  integers,  scalars,  and  character  strings. 

EMIT_ARRAYNESS.  ' 
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Production  121  <char  prim> 


<char  var> 


Generate  a cross  reference. 

Production  122  <char  prim>  <char  const > 

Just  syntax. 

Production  123  <char  prim>  ; ;=  <modified  char  func> 
SETUP_NO__ARG_FCN . 

Production  124 

<char  prim>  :;=  <char  inline  def>  <block  body>  <closing>; 
Join  production  30. 

Production  125  <char  prim>  ::=  <char  func  head>  (<call  list>) 
END_ANY_FCN. 

Production  126  <char  prim>  : (<char  exp>) 

Copy  indirect  stack  pointer  to  <char  prim> . 

Production  127  <cha,r  func  head>  ::  <char  func> 

START_NORMAL_FCN . 

If  it  is  a user  defined  function,  ASSOCIATE. 

Production  128  <char  func  head>  :;=  CHARACTER  <sub  or  qualifier> 
Set  up  for  pretty  output.  Reserve  space  on  function  stack. 

production  129  <sub  or  qUalifier>  :;=  <subscript> 

Check  that  subscript  is  not  a precision  modifier.  There 
must  be  0 or  1 component  subscripts  and  nothing  else. 
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Production  130  <sub  or  qualifier > 


: :=  <bit  qualifer> 


Drop  INX. 


Production  131  <char  exp>  ::=  <char  prim> 
Just  syntax. 


Production  132  <char  exp>  <char  exp>  <cat>  <char  prim> 

If  both  operands  are  literals,  do  the  catenation  at  compile 
time;  otherwise,  issue  a HALMAT  CCAT  instruction. 


Production  133  <char  exp>  ::=  <char  exp>  <cat>  <arith  exp> 

Call  ARITH  TOjCHAR  to  check  type  of  <arith  exp>  and  issue 
HALMAT  STOC  or  ITOC  instruction. 

Join  production  132. 


Production  134,  135  <char  exp> 


See  production  133. 


<arith  exp>  <cat>  <arith  exp> 
<arith  exp>  <cat>  <char  exp> 


Production  177,  178  <call  list>  ii—  <list  exp> 

— I <call  list>,  <list  exp> 

Call  SETUP  CALL_ARG  to  check  that  the  function  nesting 
is  not  too  deep“and  that  the  argument  is  legal  for  a function 
if  this  is  a function. 

For  user  defined  procedures  and  functions 

Cannot  make  these  calls  from  inline  functions. 

Issue  an  XXAR  instruction  for  the  argument. 

Arguments  for  procedures  can  be  NAMES  — drop  the 
NAME_PSEUDO  and  clean  up. 

Use  GET  FCN  PARM  to  get  the  symbol  table  entry  describing 
the  formal  parameter. 
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Build  a pseudo  indirect  stack  entry  at  level  0 of 
the  stack.  Build  a CURRENT_ARRAYNESS  entry.  Check 
that  the  formal  and  actual  parameters  agree. 

For  normal  built  in  functions 

Just  count  the  argument. 

For  arithmetic  shapers 

Check  that  the  argument's  type  is  legal.  Issue  an 
SFAR  instruction  for  the  argument.  Count  the  argument. 

For  string  shapers 

Just  count  the  argument. 

For  list  functions 

Issue  an  SFAR  instruction  for  the  argument  on  and 
count  it. 

Production  181 ^ 182 ^ 183,  184 » 185  <expression>  : ;=  <arith  exp> 

I <bit  exp> 

I <char  exp> 

( < structure  exp> 
I <name  exp> 

Production  186  < structure  exp>  :: 

Generate  a cross  reference. 

Production  187  < structure  exp> 

SETUP  NO  ARG  FUNC. 
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= < structure  var> 


= <modified  struct  funo 


Production  188 


<structure  exp>  ; :=  <struc  inline  def>  <block  body>  <closing> 
Join  production  30. 

Production  189  <structure  exp>  ;:=  <struct  func  head>  (<call  list>) 
END_ANY_FCN. 

Production  190  <struct  func  head>  : :=  < struct  funO 
START_NORMAL_FCN . 

If  it  is  a user  defined  function,  ASSOCIATE. 

Production  191  <list  exp>  : :=  <expression> 

Drop  INX  for  non-built-in  functions. 

Production  192  <list  exp>  : :=  <arith  exp>  # <expression> 

The  function  must  be  an  arithmetic  shaping  function.  Copy 
indirect  stack  entry  from  <expression>  to  <list  exp>. 

Production  206  <name  exp>  ::=  <name  key>  (<name  var>) 

CHECK_NAMING  and  drop  DELAY_CONTEXT_CHECK. 

Production  207  <name  exp>  : ;=  NULL 

Build  an  indirect  stack  entry  describing  the  null 
pointer. 

Production  208  <name  exp>  : :=  <name  key>  (NULL) 

Drop  NAMING  and  DELAY  CONTEXT  CHECK,  then  join  production 

207. 

THE 
)0E 
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BEPRODUOIBILITY  OF 

ORIGINAL  PAGE  IS 


Productions  250-257  <and>  :;= 


<or> 


<not> 


<cat> 


Just  syntax. 


Production  258  ^qualif ier> ; <$>  (@  <prec  sp©c>) 


Set  PSEUDO_FORM  to  1 for  SINGLE  and  2 for  DOUBLE, 


Decrement  subscript  level. 


Production  259  <bit  qualifier>  :;=  <$>  (0  <radix>) 


If  <radix>  was  DEC,  set  TEMP3  to  2. 


Set  up  PSEUDO_FORM. 


Decrement  SUBSCRIPT  LEVEL. 


Productions  260-263  <radix> 


:=  HEX 
I OCT 
I BIN 
I DEC 


Set  TEMP3 . 


Production  264  <bit  const  head>  : <radix> 


Set  that  there  was  only  a radix. 


Production  265  <bit  const  head>  ;?=  <radix>  (<number>) 


Point  FIXL  at  value  of  number* 


Production  266  <bit  const>  : :=  <bit  const  head>  <char  string> 


Convert  the  character  string  to  a number  in  the  base 
defined  in  <radix>  (i.e.  TEMP3) . Check  that  all  the  digits 
and  the  total  size  of  the  number  are  legal.  For  non-decimal 
radix,  repetition  factors  are  legal  and  are  implemented  by 
shifting  and  ORing.  Finally,  build  an  indirect  stack  entry 
for  the  constant.  . 


4^163 

INieRMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


Production  267  - 270  <bit  const> 


: : = TRUE 
I FALSE 
I ON 
•j  OFF 

Build  an  indirect  stack  entry  for  the  constant  with 
the  proper  value. 


Production  271  <char  const>  :;=  <char  string> 
Build  an  indirect  stack  entry. 


Production  272  <char  const>  ::=  CHAR (<number>)  <char  string> 

Build  the  character  string  by  multiple  concatenations, 
then  join  271. 
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START_NORMAL_FCN  — 896300 
PUSH_FCN_STACK  — 841500 

Build  an  indirect  stack  entry. 

For  built-in  functions 


Generate  a cross-reference  entry.  Fill  in  the  type, 
form  and  symbol  table  pointer  in  the  indirect  stack  entry. 

Build  a function  stack  entry  via  PUSH_FCN_STAGK.  If  necessary, 
SAVE_ARRAYNESS  and  issue  HALMAT  for  beginning  of  list  function. 

Return  false. 


For  user  defined  functions 


Fill  in  indirect  stack  entry.  Build  a function  stack 
entry.  SAVE_ARRAYNESS . Issue  HALMAT  to  start  function 
reference.  Guarantee  that  update  blocks  do  not  call  non- 
imbedded  functions.  Setup  FIXL  and  FIXV  properly  for  structure 
valued  functions.  Generate  a cross  reference. 

Return  true. 
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SETUP_NO_ARG_FCN  — 891000 
SET_BI_XREF  — 551300 
UPDATE_BLOCK_CHECK  — 842800 
STRUCTURE  FCN  — 890200 


For  built-in  functions 

Build  a cross  reference  entry  via  SET_BI_XREF. 

If  this  is  an  initial/constant  context  and  the  function 
has  special  processing  in  that  case,  do  the  special  processing; 
otherwise,  generate  HALMAT  for  a built-in  function  call. 


For  user  defined  functions 

Check  that  the  function  is  not  access  protected.  Use 
UPDATE  BLOCKjCHECK  to  check  that  update  blocks  do  not  call 
non- imbedded  functions.  Use  STRUCTURE_FCN  to  convert  FIXL 
and  FIXV  of  the  function  to  the  structure  form  if  the  value 
of  the  function  is  a structure.  Generate  HALMAT  to  do  the 
function  call: 

function  nest  1 FCAL  0 0 

sym  pointer  for  f nc  0 0 01 

function  nest  0 XXND  00 

Generate  a cross  reference. 


For  all  functions 

After  generating  the  call,  if  there  was  a precision 
modifier  specified  in  the  argument  to  SETUP_NO_ARG_FCN , 
generate  the  HALMAT  to  do  the  conversion. 
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END  ANY  FCN  — 964900 


For  procedure  and  user  defined  functions 

Generate  a HALMAT  PCAL  or  FCAL.  Then  end  it  off  with 
an  XXND. 


For  normal  built-in  functions 

Check  that  the  proper  n\amber  of  arguments  were  encountered 
and  that  the  types  match.  Then  branch  depending  on  the  type 
of  the  first  argument. 


- BIT 

- CHARACTER 

- MATRIX 

- VECTOR 

- SCALAR 


Set  length  of  result  string. 

Generate  HALMAT  to  convert 
operands  to  proper  types  if 
necessary. 

Check  and  set  up  dimensions  of 
argument  and  result. 

Set  up  dimension  of  result. 

Attempt  to  perform  compile  time 
evaluation  via  BI_COMPILE_TIME . 
Generate  integer  to  scalar  con- 
versions if  necessary. 

Same  as  scalar  case  except 
scalar  to  integer  conversion  are 
performed. 

Make  type  of  arguments  match 
via  MATCH_SIMPLES.  Then  set 
type  of  returned  value  to  type 
of  arguments  if  it  was  originally 
lORS. 

After  handling  the  individual  cases,  generate  the  HALMAT 
call  of  the  function. 

1': ' . . ' . .. 

built-in  function  # 2 BFNC  0 0 

3 


- INTEGER 


INTEGER  or  SCALAR 


(1,2, or 
3 args) 


pointer  to  arg 


type 

of 

arg 


form 

of 

arg 
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For  arithmetic  shaping  functions 


For  integers  and  scalars  — restore  arrayness  of 
argument.  If  argument  is  simple,  generate  HALMAT_ shaping 
function  call  targeting  to  scalar  or  integer  result, 
otherwise,  generate  an  MSHP  HALMAT  instruction,  taking 
the  arguments  from  LOC_P  (ARG#  + 1)  , ... 

For  vector  and  matrix  shaping  functions  issue  an 
MSHP  HALMAT  instruction. 


For  string  shaping  functions 

Check  that  the  call  is  legal.  Generate  a HALMAT  shaping 
function  call  targeted  to  either  bit  or  character  string. 
Issue  one  or  two  HALMAT  operands  for  each  subscript  (AT  and 
TO  require  two  operands) . Go  back  and  fill  in  the  proper 
number  of  arguments  in  the  operator. 


For  list  functions 

Check  that  the  type  of  the  argument  is  okay  and  that 
there  is  only  one  argument  (an  array) . Generate  a HALMAT 
LFNC  to  call  the  function  followed  by  an  SFND  to  end 
the  function  invocation.  Finally,  RESET_ARRAYNESS . 
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4.4.6  <statement> 

This  section  deals  with  productions;  33-81, 
136-176,  179,  180,  273-288,  429-449.  ■ 


< OTHER  STATEMENT> 


;=  <ON  PHRASE>  <STATEMENT> 

I <IP  STATEMENT> 

I < LABEL  DEFINITION  XOTHER  STATEMENT  > 


36  < STATEMENTS  : 

37 


:=<  BASIC  STATEMENT > 
I < OTHER  STATEMENT  > 


38  < ANY  STATEMENT > ;:=<  STATEMENT > 

39  [ < BLOCK  DEFINITION > 

40  < BASIC  STATEMENT > ; :=<  LABEL  DEFINITION > <BASIC  STATEMENT > 

41  I < ASSIGNMENT  > } 

42  I exit  ; 

43  I exit  <LABEL  > ; 

44  I REPEAT  r 

45  I REPEAT  <LABEL>  ; 

46  I GO  TO  <LABEL>; 


48  I <CALL  KEYS  ; 

49  I < CALL  KEY  >(<  CALL  LIST  > ) ; 

50  1 <CALL  KEY  > ASSIGN  ( < CALL  ASSIGN  LIST  > ) ; 

51  I <CALL  KEY>  (<CALL  LIST>)  <ASSIGN > (<CALL  ASSIGN  LIST > ) ; 

52  I RETURN  ; 

53  I RETURN  < EXPRESSION  > ; 

54  I <DO  GROUP  HEAD>  <ENDING > ; 

55  I <READ  KEY>  ; 

56  j <READ  PHRASE>  ; 

57  I <WRITE  KEY>  ; 

58  I <WRITE  PHRASE>  ; 

59  I <FILE  EXP>  - <EXPRESSION>  ; 

60  I <VARIABLE>  = <FILE  EXP>  ; . ^ 

61  I <WAIT  KEY>  FOR -DEPENDENT  ; 

62  I <WAIT  KEYXARITH  EXP>  ; 

63  I <WAIT  KEY>  UNTIL  <ARITH  EXP>  ; 

64  I <WAIT  KEY>  FOR  <BIT  EXP>  ; 

65  I <TERMINATOR>  ; 

66  r <TERMINATOR>  <TERMINATE  LIST>  ; 

67  I UPDATE  PRIORITY  TO  <ARITH  EXP>  ; 

68  I UPDATE  PRIORITY  <LABEL  VAR>  TO  <ARITH  EXP>  ; 

69  I <SCHEDULE  PHRASE>  ; 

70  I <SCHEDULE  PHRASEXSCHEDULE  CONTROL>  ; 

71  I <SIGNAL  CLAUSE>  ; 

72  I SEND  ERROR  <SUBSCRIPT>  ; 

73  I <ON  CLAUSE>  ; 

74  I <ON  CLAUSE>  AND  <SIGNAL  CLAUSE>  j 

75  I OFF  ERROR  <SUBSCRIPT>  ; 

76  I <%  MACRO  NAME>  ; 

77  I <%  MACRO  HEADX%  MACRO  ARG>  ) ; 
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78 

<%  MACRO  HEAD> 

; :=  <%  MACRO  NAME>  ( 

79 

1 <%  MACRO  HEAD>  <%  MACRO  ARG>  , 

80 

<%  MACRO  ARG> 

::=  <NAMEVAR> 

1 <CONSTANT> 

136 

<ASSIGNMENT>  ; 

;=  <VARIABLE>  <=1>  <EXPRESSION> 

137 

1 <VARIABLE>  ,<ASSIGNMENT> 

138 

<IF  STATEMENT> 

;;=  <IF  CLAUSE>  <STATEMENT> 

139 

1 <TRUE  PART>  <STATEMENT> 

140 

< TRUE  PART>  : 

;=  <IF  CLAUSE>  <BASIC  STATEMENT>  ELSE 

141 

<IF  CLAUSE>  :: 

= <1F>  <RELATIONAL  EXP>  THEN 

142 

• 

1 <IF>  <BIT  EXP>  THEN 

143 

<IF>  IF 

144 

<DO  GROUP  HEAD>  ; ;=  DO; 

145 

1 DO  <FOR  LIST>  ; 

146 

1 DO  <FOR  LIST>  <WH1LE  CLAUSE>  ; 

147 

1 DO  <WHILE  CLAUSE>  ; 

148 

1 DO  CASE  <ARITH  EXP>  ; 

149 

1 <CASE  ELSE>  <STATEMENT> 

150 

1 <DO  GROUP  HEAD>  <ANY  STATEMENT> 

151 

1 <DO  GROUP  HEAD>  <TEMPORARY  STMT> 

152 

<CASE  ELSE>  : 

;=  DO  CASE  <ARITH  EXP>  ; ELSE 

153 

<WHILE  KEY>  ; 

;=  WHILE 

154 

1 UNTIL 

155 

<WHILE  CLAUSE> 

; ;=  <WHILE  KEY>  <BIT  EXP> 

156 

I <WHILE  KEY>  <RELATIONAL  EXP> 

157 

<FOR  LIST>  ; := 

<FOR  KEY>  <ARITH  EXP>  ^ITERATION  CONTROL> 

158 

1 

<FOR  KEY>  <ITERATION  BODY> 

159 

<ITERATION  BODY>  : :=  <ARITH  EXP> 

160 

<ITERATION  BODY>  , <ARITH  EXP> 

161 

<ITERATION  CONTROL>  : :=  TO  <ARITH  EXP> 

1 162 

i 

1 TO  <ARITH  EXP>  BY  <ARITH  EXP> 

1 

163 

<FOR  KEY>  ::= 

FOR  <ARITH  VAR>  = 

164 

i 

FOR  TEMPORARY  <IDENTIFIER>  = 

165 

<BNDING>  : := 

END 

166 

1 

END  <LABEL> 

167 

1 

<LABEL  DEFINITION>  <ENDING> 

168 

<ON  PHRASE>  : : 

= ON  ERROR  <SUBSCRIPT> 
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169  <0N  CLAUSE>  : ;=  ON  ERROR  <SUBSCRIPT>  SYSTEM 

170  I ON  ERROR  <SUBSGRIPT>  IGNORE 

171  <SIGNAL  CLAUSE>  : : = SET  <E^7ENT  VAR> 

172  I RESET  <EVENT  VAR> 

173  j SIGNAL  <EVENT  VAR> 

174  <FILE  EXP>  :;=  <FILE  HEAD>  , <ARITH  EXP>  ) 


175  <FILE  HEAD>  : :=  FILE  ( <NUMBER> 

176  <GALL  KEY>  : :=  GALL  <LABEL  VAR> 

I 179  <GALL  ASSIGN  LIST>  ; :=  <VARIABLE> 

I <GALL  ASSIGN  LIST>  , <VARIABLE> 

273  <10  G0NTROL> 

274 

275 

276 

277 

i 278  <READ  PHRASE>  : :=  <READ  KEY>  <READ  ARG> 

I 279  1 <READ  PHRASE>  , <READ  ARG> 

j ■ ■ 

I 280  <WRITE  PHRASE>  i :=  <WRITE  KEY>  <WRITE  ARG> 

\t, 281  I <WRITE  PHRASE>  , <WRITE  ARG> 

I 282  <READ  ARG>  : :=  <VARIABLE> 

I 283  I <10  GONTROL> 

I 284  <WRITE  ARG>  ; ;=  <EXPRESSION> 

i 285  I <10  GONTROL> 


286  <READ  KEY>  : ;=  READ  ( <NUMBER>  ) 

287  I READALL  ( <NUMBER>  ) 

I 288  <WRITE  KEY>  ; ;=  WRITE  ( <NUMBER>  ) 

i ' , . ' ' 
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SKIP  ( <ARITH  EXP>  ) 
TAB  ( <ARITH  EXP>  ) 
COLUMN  ( <ARITH  EXP>  ) 
LINE  ( <ARITH  EXP>  ) 
PAGE  ( <ARITH  EXP>  ) 


429  <TERMINATOR>  ; := 

430  I 

431  <TERMINATE  LIST> 

432 


TERMINATE 

CANCEL 

:=  <LABEL  VAR> 

I <TERMINATE  LIST>  , <LABEL  VAR> 


433  <WAIT  KEY>  ; :=  WAIT 

434  <SCHEDULE  HEAD>  : :=  SCHEDULE  <LABEL  VAR> 

435  I <SCHEDULE  HEAD>  AT  <ARITH  EXP> 

436  I <SCHEDULE  HEAD>  IN  <ARITH  EXP> 

437  I <SCHEDULE  HEAD>  ON  <BIT  EXP> 


438  <SCHEDULE  PHRASE>  : 

439 

440 


:=  <SCHEDULE  HEAD> 

I <SCHEDULE  HEAD>  PRIORITY  ( <ARITH  EXP>  ) 
I <SCHEDULE  PHRASE>  DEPENDENT 


441  <SCHEDULE  CONTROL>  ; <STOPPING> 

442  I <TIMING> 

443  I <TIMING>  <STOPPING> 


444  <TIMING>  : ;= 

445 

446 

447  <REPEAT>  ; : = 


;=  <REPEAT>  EVERY  <ARITH  EXP> 
I <REPEAT>  AFTER  <ARITH  EXP> 
<REPEAT> 


448  <STOPPING>  : 

449 


, REPEAT 

;=  <WHILE  KEY>  <ARITH  EXP> 
1 <WHILE  KEY>  <BIT  EXP> 
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Production  33  <other  statement>  ::=  <on  phrasex statement > 

Define  an  internal  label  to  jump  to  after  executing 
the  ON  statement.  This  is  necessary  because  the  <statement>  ■ 
code  is  generated  in  line  and  must  be  jumped  over.  Check 
that  there  have  been  no  branches  to  <statement>  via 
UNBRANCHABLE . Set  that  no  labels  have  been  processed  yet. 


Production  34  <other  statement > ;;=  <if  statement> 
Set  that  no  labels  yet  processed. 


Production  35 

<other  statement^  ss=  < label  definition^  <other  statement^ 

Link  in  the  label  in  the  SYT_PTR  chain  for  this 
statement.  SET  LABEL  TYPE. 


Production  36  <statement>  <basic  statement> 

i ' 

I There  should  be  no  transposes  hanging.  Print  the 

I statement.  EMIT_SMRK. 

II  '■" " 

Production  37  <statement>  <other  statement> 

Just  syntax. 


Production  38,  39  <any  statement>  : :=  <statement> 

■ ~~  ” I <block  definition> 

Reset  PTR. 


Production  40 

<basic  statement^  : <label  definition>  <basic  statement^ 

See  production  35. 

Production  41  <basic  statement>  : :=  <assignment> 

Pop  all  old  entries  off  indirect  stack.  If  the  assignment 

involved  a NAME  operation  call  NAME ARRAYNESS . Pill  the  number 

of  left  sides  into  the  HALMAT  assignment  operator.  EMIT_ARRAYNESS . 
Set  that  no  labels  have  been  processed  yet. 
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Production  42,  43  <basic  statement>  : :=  EXIT; 

I EXIT  <label>  ; 

Search  through  enclosing  DO  nests  until  LABEL__MATCH 
detects  a DO  with  a label  matching  <label>  (a  null  <label> 
matches  everything) . Issue  a HALMAT  BRA  to  the  statement 
immediately  after  the  end  of  the  appropriate  DO  group. 

Set  that  no  labels  have  been  processed  yet. 


Production  44,  45  <basic  statement>  : REPEAT; 

I REPEAT  < label >; 

The  same  as  42,  43,  except  the  BRA  targets  to  the  test 
on  the  loop  instead  of  the  outside  of  the  loop. 


Production  46  <basic  statement>  ::=  GO  TO  <label>; 

Check  that  the  <label>  is  a legal  target  from  the  current 
DO  nest  position.  Generate  a HALMAT  BRA  to  <label>.  Set  that 
no  labels  have  been  processed  yet. 


Production  47  <basic  statement>  ::=  ; 

Set  that  no  labels  have  been  processed  yet. 

t; 

Production  48-51 


<basic  statement> 


END  ANY  FCN. 


: :=  <call 
I <call 
I <call 
I <call 


key> ; 

key>  (<call  list>); 

key>  <assign>  (<call  assign  list>); 

key>(<call  list> ) <assign>  (<call  assign  list>); 


Production  52  <basic  statement>  ::=?  RETURN; 


Check  that  the  current  block  is  compatible  with  a RETURN 
containing  no  <expression> . Generate  a HALMAT  RTRN.  Set 
that  no  labels  have  been  processed  yet. 

Production  53  <basic  statement>  : :=  RETURN  <expression> ; 

Drop  any  residual  effects  from  a NAME  pseudo  via  KILL_NAME 
and  generate  an  error  message  if  there  were  any.  Same  for  array 
ness.  Check  that  this  is  a function  block. 


Check  that  the  <expression>  is  compatible  with  the  type  of 
the  function  and  generate  any  necessary  conversions.  Generate 
a HALMAT  RTRN  instruction  with  <expression>  as  operand. 

Set  that  no  labels  have  been  processed. 
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Production  54  <basic  statement> 


<do  group  head>  <ending>; 


^ For  a DO  CASE,  fill  in  the  tag  on. the  last  CLBL  opera- 

tion to  indicate  it  is  the  last. 

Issue  the  appropriate  ending  HALMAT  (i.e.  ESMP,  EFOR, 

EGAS,  ETST) . 

Pass  over  the  list  of  labels:  for  each  label  defined 

in  the  group  being  closed,  remove  the  label  from  the  list 
and  make  its  DO  level  an  impossible  value  so  that  no  other 
references  can  target  it. 

DISCONNECT  all  of  the  group's  temporaries  from  the 
hash  table. 

Decrement  DO_LEVEL  and  set  that  no  labels  have  been 
processed  yet. 

Production  55-58  <basic  statement>  : :=f  <read  key>  ; 

I <read  phrase> ; 

I <write  key>; 

I <write  phrase>; 

Issue  a HALMAT  I/O  instruction. 

Issue  a HALMAT  XXND  to  terminate  the  T/0  (which 
looks  like  a subroutine  call)  reference. 

Set  that  no  labels  have  been  processed  yet. 

Production  59  <basic  statements*  ::=  <file  exp>  = <expression> ; 

Issue  a FILE  instruction  and  fill  in  the  specific  informa- 
tion about  <expression>  in  argument  2. 

EMIT_ARRAYNESS . 

Set  that  no  labels  have  been  processed  yet. 

Production  60  <basic  statement>  ::=  <variable>  = <file  exp>; 

Issue  a FILE  instruction  and  fill  in  the  specific  informa- 
tion about  <variable>  into  argument  2 . 

Check  <variable>  for  legality. 

Set  that  no  labels  have  been  processed  yet. 
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Production  61  <basic  stateniGnt> 


<wait  key>  FOR  DEPENDENT? 


Issue  a WAIT  instruction. 


Check  that  the  context  is  valid  for  a real  time  statement. 

Set  that  no  labels  have  been  processed  yet. 

Production  62-64  <basic  statement>  : :=  <wait  key>  <arith  exp>; 

■ — I <wait  key>  UNTIL  <arith  exp>; 

I <wait  key>  FOR  <bit  exp>; 

Check  that  the  <arith  exp>  or  <bit  exp>  is  valid.  Issue 
a WAIT  instruction.  Join  production  61. 


Production  65  <basic  statement>  : :=  <terminator> ? 

Issue  the  HALMAT  instruction  built  by  the  <terminator> 
productions  and  join  production  61. 


Production  66 

<basic  statement>  : :=  <terminator>  <terminate  list>; 

Issue  the  HALMAT  instruction  built  by  the  <terminator> 
productions  — • EXT_P  is  the  length  of  <terminate  list>.  Issue 
one  operand  for  each  program/task  on  the  list.  Join  produc- 
tion 61. 


Production  67 y 68 

<basic  statement>  ::=  UPDATE  PRIORITY  TO  <arith  exp>; 

I UPDATE  PRIORITY  <label  var>  TO  <arith  exp> ; 

Check  that  the  <label  var>  is  a program  or  task  and  that 
the  <arith  exp>  is  an  unarrayed  integer  or  scalar.  Issue  a 
HALMAT  PRIO  instruction.  Join  production  61. 

Production  69,  70 

<basic  statement>  : <schedule  phrase>; 

I <schedule  phrase>  <schedule  control>; 

Issue  a HALMAT  SCHD  instruction.  Issue  an  operand  for  each 
of  the  optional  clauses  that  were  specified.  Join  production 
61. 


4-176 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE.  MASSACHUSETTS  02138  • (617)  661-1840 


IR- 


Production  71  <basic  stat6ment>  : :—  <signal  clause>/ 

Issue  a SGNL  instruction.  Set  that  no  labels  have 
been  processed  yet. 


Production  72  <basic  statement>  : SEND  ERROR  <subscript>; 

ERROR  SUB  checks  that  the  <subscript> is  a legal  error 
specification  for: 

SEND  ERROR  — arg  = 2 
ON  ERROR  — arg  =1 
OFF  ERROR  — arg  =0 

sets  up  FIXV  (<subFcript>)  for  use  as  an  operand  in  the 
instruction  and  adds  the  error  specification  to  the  EXT_ARRAY 
list  if  it  is  a new  one.  The  internal  routine  ERROR_SS_FIX 
examines  the  individual  components  of  the  subscript  and  returns 
their  values. 

Emit  an  ERSE  instruction.  Make  an  entry  for  the  block 
summary.  Join  production  61. 

Production  73,  74 

<basic  statement>  : :=  <on  clause> ; 

j <on  clause>  AND  <signal  clause>; 

Issue  ERON  instruction  (see  ERROR_SUB)  and  go  set  that 
no  labels  have  been  processed  yet. 

Production  75  <basic  statement>  : OFF  ERROR  <subscript> ; 

Use  ERROR  SUB  to  check  the  <subscript>  for  legality  and 
to  set  up  FIXV.  Issue  an  ERON  instruction.  Go  set  that  no 
labels  have  been  processed  yet. 

Production  76  <basic  statement>  ; :=  <%  macro  name> ; 

Issue  PMHD  and  PMIN  instructions.  Check  that  the  % macro 
does  not  expect  arguments.  Set  that  no  labels  have  been 
processed  yet* 
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Production  77 


<basic  statement>  ; ;=  <%  macro  head>  <%  macro  arg>)  ; 

Check  that  the  correct  number  of  arguments  have  been  seen. 
Issue  a PMAR  for  the  last  argument.  Restore  normal  checking 
of  variables.  Issue  a PMIN  instruction  to  close  the  % macro 
invocation.  Restore  lock  group  checking.  Set  that  no  labels 
have  been  processed. 


Production  78  <%  macro  head>  ; :=  <%  macro  name>  ( 

Issue  a PMHD  instruction.  DELAY_CONTEXT_CHECK . If  this 
is  %COPY,  inhibit  lock  group  checking. 

Production  79 

<%  macro  head>  <%  macro  head>  <%  macro  arg>, 

Issue  a PMAR  instruction  for  the  argument. 


Production  80  <%  macro  arg>  : :=  <name  var> 

! ■ ■ • ■ ■ 

I . . . . 

Check  that  the  <name  var>  meets  the  specification  for 
M the  macro's  arguments  as  listed  in  PCARGTYPE  and  PCARGBITS. 


Production  81  <%  macro  arg>  ; :=  <constant> 

Similar  to  production  80  but  simpler. 


Production  136  <assignment>  : :=  <variable>  <=1>  <expression> 

Initialize  count  of  operands  of  HALMAT  assignment  operator 
to  2.  Issue  a NASN  or  XASN  instruction  to  perform  the  assign- 
ment and  check  that  the  left  and  right  sides  are  compatible 
for  an  assignment.  Copy  the  description  of  <expression>  into 
<assignment> . 

Production  137  <assignment>  : :=  <variable>  , <assignment> 

Issue  another  operand  for  the  assignment  operator  issued 
in  production  136.  Add  1 to  the  count  of  operands . Check  that 
the  left  and  right  sides  are  compatible  for  assignment  and  copy 
description  of  <expression>  to  < assignment >. 
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Production  138,  139  <if  statement>  ::=  <if  clause>  <statement> 

■ I <true  part>  <statement> 

Do  not  allow  branching  to  <statement> . Issue  an  LBL 
instruction  to  define  the  flow  number  generated  to  allow 
branching  around  the  <statement>. 


Production  140  <true  part>  : :=  <if  clause>  <basic  statement>  ELSE 

Do  not  allow  branching  to  the  <basic  statement? . Drop 
any  implicit  transposes.  List  everything  up  to  but  not  including 
ELSE.  EMIT_SMRK.  SRN_UPDATE.  List  the  ELSE.  Issue  a BRA 
instruction  so  that  the  <basic  statement?  code  does  not  fall 
into  the  ELSE  statement  code.  Issue  an  LBL  instruction  to 
define  the  flow  number  for  the  false  branch  on  the  IF,  and 
save  the  flow  number  in  FIXV  for  production  139. 


Production  141  <if  clause?  :;=  <if?  <relational  exp?  THEN 

Issue  a branch  to  the  false  part  and  save  the  flow 
number  for  definition  by  production  140  or  138.  List  the 
statement.  EMIT  SMRK. 


Production  142  <if  clause?  ::=  <if?  <bit  exp?  THEN 

Issue  a BTRU  to  transform  the  <bit  exp?  to  a condition. 
Check  that  the  <bit  exp?  is  one  bit  long.  EMIT_ARRAYNESS. 
Join  production  141. 

Production  143  <if?  : :=  IF 

Issue  an  IFHD  instruction  to  start  things  rolling. 


Production  144  <do  group  head?  DO; 

Issue  a DSMP  and  EMIT_PUSH_DO. 

Check  that  there  are  no  implicit  transposes  hanging. 
List  the  statement.  If  there  was  a TEMPORARY,  issue  a TDCL 
to  declare  it.  EMIT  SMRK. 


; 'n.jf 
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Production  145  <do  group  head> 


DO  <for  list>; 


Fill  into  the  DFOR  a tag  indicating  whether  it  is  a 
discrete  DO,  an  implicit  1 increment  DO,  or  an  explicit 
increment  DO. 

Join  144. 


Production  146  <do  group  head>  ; :=  DO  <for  list>  <while  clause>; 

Fix  the  DFOR  as  in  145,  including  also  a high  order  1 
bit  if  there  is  an  UNTIL  clause.  Issue  a CFOR  to  end  the 
conditional. 

Join  144. 


Production  147 

Issue  a CTST  to  close  the  DTST. 

Join  146 . 

Production  148,  152  <do  group  head>  : :=  DO  CASE  <arith  exp>; 

Check  that  <arith  exp>  is  an  unarrayed  integer  or 
scalar. 

Emit  a DCAS  (n.b.  FIXL  indicates  whether  or  not  there  is 
an  ELSE).  EMIT_PUSH_DO.  Emit  the  second  operand  describing 
the  <arith  exp>. 

Check  that  there  are  no  hanging  transposes. 

If  there  is  an  ELSE,  print  the  statement  without  the 
ELSE.  EMIT_SMRK,  SRN_UPDATE.  Print  the  ELSE. 

If  there  is  no  ELSE,  print  the  statement,  EMIT_SRMK. 

Join  production  149. 

Production  149  <do  group  head>  <case  else>  <statement> 

Check  that  there  are  no  branches  to  <statement> . 

Initialize  that  no  cases  have  yet  been  processed  in 
this  nested  case.  Join  production  150. 
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Production  150 

<do  group  head>  ; ;=  <do  group  hGad>  <any  statein©nt> 

If  the  DO  group  is  a DO  CASE  and  <any  statement>  is 
not  a real  <block  definition>  then: 

Set  up  for  pretty  output  of  case  number. 

- Issue  a HALMAT  CLBL  instruction  which  points  to  the 

end  of  the  DO  CASE  and  defines  the  location  of  the  case. 

- Point  FIXV  at  the  last  CLBL  operator 

Production  151  <do  group  head>  <do  group  head>  < temporary  stmt> 

Check  that  the  <temporary  stmt>  is  at  the  beginning  of 
the  DO  group  and  that  the  group  is  not  a DO  CASE. 

Output  the  statement.  EMIT_SMRK. 

Production  152  <case  else>  ::=  DO  CASE  <arith  exp>;  ELSE 
See  production  148. 

Production  153,  154  <while  key>  : :=  WHILE 
1 UNTIL 

If  this  is  not  a DO  FOR  then  issue  a HALMAT  DTST  and 
EMIT_PUSH_DO . 

Set  FIXL: 

0 for  WHILE 

1 for  UNTIL 

Production  155  <while  clause>  ::=  <while  key>  <bit  exp> 

Check  that  <bit  exp>  is  an  unarrayed  boolean.  Emit  a 
HALMAT  BTRU  to  transform  it  to  a relation. 

Copy  WHILE/UNTIL  indicator  to  INX  and  copy  indirect 
stack  pointer. 

Production  156  <while  clause>  <while  key>  <relational  exp> 

Join  production  155. 
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Production  157 


<for  list>  :;-  <for  key>  <arith  exp>  <iteration  control> 


Check  that  <arith  exp>  is  an  unarrayed  integer  or  scalar. 
Issue  a DFOR.  EMIT_PUSH_DO.  Emit  two  or  one  operands 
depending  on  whether  or  not  there  is  a BY  clause.  Point  FIXV 
at  the  DFOR.  Set  PTR  to  the  number  of  operands. 


Production  158  <for  list>  ; :=  <for  key>  < iteration  body > 


4.V.  tag  field  in  last  AFOR  to  indicate  that  it  is 

the  end  of  the  list. 


Set  PTR  to  indicate  a discrete  DO. 


159  ^iteration  body>  : :=  <arith  exp> 


This  is  the  beginning  of  the  list  of  values  so  issue 
the  HALMAT  DFOR  operator  here. 


Call  EMIT_PUSH_DO  to  build  a DO  stack  entry,  reserve 
enough  flow  numbers  for  the  entire  DO  group  processing  and 
emit  the  rxrst  operand  of  the  DFOR  which  is  the  flow  number 
of  the  instruction  immediately  following  the  end  of  the  DO 
group . 


Issue  a HALMAT  operand  for  the  variable  in  the  <for  key> . 


Set  FIXV  of  <for  key>  to  point  to  the  DFOR. 


into  production  160  to  finish  processing  <arith  exp>. 


Production  160  <iteration  body>  : :=  < iteration  body >,  <arith  exp> 


Check  that  the  <arith  exp>  is  an  unarrsyed  integer  or 
scalar.  Issue  a HALMAT  AFOR  instruction  for  the  <arith  exp>. 
Reserve  a flow  number  just  in  case. 


Set  FIXV  of  <iteration>  body  to  point  to  the  last  AFOR 
issued. 
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Production  161/  162 

<iteration  control>  : :=  TO  <arith  exp> 

I TO  <arith  exp>  BY  <arith  exp> 

Check  that  <arith  exp>  is  an  unarrayed  integer  or 
scalar.  Set  TEMP2  to  2 if  BY  is  present;  otherwise  to  1. 


Production  163  <for  key>  : ;=  FOR  <arith  var>  = 

Check  legality  of  assignment. 

Check  that  <arith  var>  is  an  unarrayed  integer  or 
scalar  via  UNARRAYED_SIMPLE.  Drop  <arith  var> ' s FIXL  entry. 

Production  164  <for  key>  ; :=  FOR  TEMPORARY  <identifier>  = 

Build  an  indirect  stack  entry  to  describe  < identifier> . 


Production  165  <ending>  :;=  END 
Just  syntax. 


Production  166  <ending>  : END  <label> 

Check  that  the  <label>  matches  the  <label  definition> 
on  the  innermost  DO. 


Production  167  <ending>  : :=  <label  definition>  <ending> 
SET  LABEL  TYPE . 


Production  168  <on  phrase>  : :=  ON  ERROR  <subscript> 

Check  the  <subscript>  for  validity  and  set  up  FIXV. 
Issue  an  ERON  instruction  and  save  the  "branch  around"  flow 
number  in  FIXL.  List  the  statement.  EMIT  SMRK. 


Production  169,  170  <on  clause>  ::=  ON  ERROR  <subscript>  SYSTEM 

I OK  ERROR  <subscript>  IGNORE 

Save  action  in  FIXL.  Check  the  <subscript>  and  set  up 

FIXV. 
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Production  171-173  <signal  clause>  ::= 


SET  < event  var> 
RESET  < event  var> 
SIGNAL  < event  var> 


Check  that  this  is  not  an  inline  and  that  the  event  xs 
latched  (except  for  SIGN^) . Check  that  there  is  not  any 
arrayness.  Save  the  action  in  INX. 


Production  174  <file  exp>  ::=  <file  head>  , <arith  exp> 

Check  that  the  device  number  is  small  enough.  Check 
that  <arith  exp>  is  an  unarrayed  scalar  or  integer. 

RESET  ARRAYNESS. 


Production  175  <file  head>  ;:=  FILE  (<number> 
Save  device  number  = •<number>+2. 

SAVE  ARRAYNESS . 


Production  176  <call  key>  : :=  CALL  < label  var> 

Trace  back  through  the  IND_CALL_LAB  chain  to  locate 
the  symbol  table  entry  for  the  procedure  and  check  that 
is  a procedure  and  not  access  protected. 

Initialize  argument  count  to  0. 


Production  179,  180 

<call  assign  list>  <variable> 

11  a GGT 


"^var  j , 

<call  assign  list>  , <variable> 


Count  the  argument.  Issue  an  XXAR  instruction  to  specify 
the  argument.  Drop  any  arrayness.  Check  that  the  argument 
is  legal  for  an  assign  parameter. 


PrndviGtion  273  - 277  <io  control>  : ; = 


SKIP  (<arith  exp>) 
TAB  (<arith  exp>) 
COLUMN  (<arith  exp>) 
LINE  (<arith  exp>) 
PAGE  0<arith  exp>) 


Save  the  control  function  in  TEMP.  Check  that  the  <arith  exp> 
is  an  unarrayed  integer  or  scalar. 
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Production  278,  279 

<read  phrase > : :=  <read  key>  <read  arg> 

I  <read  phrase>  , <read  arg> 

temp  = 0 - <expression>  or  <variable> 

1 - TAB 

2 - COLUMN 

3 - SKIP 

4 - LINE 

5 - PAGE 

If  this  is  a READ,  check  that  the  argument  is  legal. 
Otherwise,  call  READ_ALL_TYPE  to  check  whether  the  argument 
contains  any  non-character  string  variables. 


Production  280,  281 

<write  phrase>  ;:=  <write  key>  <write  arg> 

I <write  phrase> , <write  arg> 

Just  syntax. 


Production  282-285  <read  arg>  ; :=  <variable> 

I <io  control> 

<write  arg>  : :=  <expression> 

I <io  control> 

Check  that  the  item  is  legal  for  I/O  and  that  this  is  not 
an  inline  function.  Issue  an  XXAR  instruction  for  this  operand 
of  the  I/O  subroutine  call.  If  it  is  a structure,  there  cannot 
be  any  NAMES  in  the  structure.  EMIT_ARRAYNESS . 

Productions  286-288 

cread  key>  ::=  READ  (<number>) 

I READALL  (<numbe,r>) 

<write  key>  : ;=  WRITE  (<number>) 

TEMP  = 0 - READ 

1 - READALL 

2 - WRITE 

Issue  an  XXST  instruction  to  start  the  I/O  reference. 

Build  an  indirect  stack  entry  for  <read  key>  or  <write  key> 
describing  the  device.  Check  that  the  device  is  legal  for 
the  I/O  requested.  Save  TEMP  in  INX. 
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Production  429,  430  <tei:Tninator> 


TERMINATE 

CANCEL 


Incorporate  type  of  terminator  in  FIXL,  FIXV. 


Production  431  <terminate  list>  ::=  <label  var> 

Set  up  to  count  the  number  of  <label  var>s  in  EXT_P. 
Join  production  432. 


Production  432  <terminate  list>  : <terminate  list>,  <label  var> 

Count  the  <label  var>.  Build  a cross  reference.  Check 
that  the  < label  var>  is  either  a program  or  a task  via  PROCESS  CHECK 


Production  433  <wait  key>  ;:=  WAIT 
Initialize  REFER  LOC. 


Production  434  <schedule  head>  j:=  SCHEDULE  <label  var> 

Check  that  <label  var>  is  a program  or  task.  Initialize 
REFER_LOC. 

Production  435-437 

<schedule  head>  ; :=  <schedule  head>  AT  <arith  exp> 

I <schedule  head>  IN  <arith  exp> 

I <schedule  head>  ON  <bit  exp> 

Check  that  the  <arith  exp>  or  <bit  exp>  is  legal.  Check 
that  only  one  of  the  three  forms  was  specified.  Set 
INX(<label  var>)  to  indicate  which*  of  the  three  forms. 

Production  438  <schedule  phrase>  ;;=  < schedule  head> 

There  must  be  a priority  specified. 

Production  439,  440 

<schedule  phrase>  : <schedule  head>  PRIORITY  (<arith  exp>) 

I <schedule  phrase>  DEPENDENT 

Set  bits  in  INX (<label  var>) . 
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Productions  441-443  <schedule  control> 


Syntax . 


<stopping> 

<timing> 

<timing>  <stopping> 


Productions  444-446  <timing> 


:=  <repeat>  EVERY  <arith  exp> 
I <repeat>  AFTER  <arith  exp> 
I <repeat> 


<arith  exp>  must  be  an  unarrayed  integer  or  scalar. 
Set  the  appropriate  bit  in  INX. 


Production  447  <repeat>  : :=  , REPEAT 
Syntax . 


Production  448  <stopping>  : ;=  <while  key>  <arith  key> 

Check  that  this  is  UNTIL  situation  and  <arith  exp>  is 
an  unarrayed  integer  or  scalar.  Set  bit  in  INX. 


Production  449  <stopping>  ; ;=  <while  key>  <bit  exp> 

Check  that  the  <bit  exp>  is  legal  via  CHECK  EVENT  EXP. 
Set  bit  in  INX.  ~ ■“ 
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4.4.7  <compilation> 

This  section  deals  with  productions  1-3,  289-292, 
and  426-428. 


1 <COMPILATION>  <COMPILE  LIST>  _|_ 

2 <COMPILE  LIST>  : :=  <BLOCK  DEFINITION> 

3 I <COMPILE  LIST>  <BLOCK  DEFINITION> 


289  <BLOCK  DEFINITION>  : :=  <BLOCK  STMT>  <BLOCK  BODY>  <CLOSING>  ; 

290  <BL0CK  BODY>: := 

291  1<DECLARE  GR0UP> 

292  |<BLOCK  B0DY>  <ANY  STATEMENT> 


426  <CL0SING> 

427 

428 


CLOSE 

CLOSE  <LABEL> 

<LABEL  DEFINITI0N>  <CL0SING> 
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Production  1 <compilation> 


::=  <compile  list>  _|_ 

Check  that  the  parse  stack  is  empty  and  that  this  is  a 
compilation  unit.  Issue  an  XREC  instruction  and  flush  the 
HALMAT  buffer.  Flush  out  the  LITPILE.  Set  COMPILING. 


Production  2 , 3 ; 

<compile  list>  ; :=  <block  definition> 

I <compile  list>  <block  definition> 

Just  syntax. 


Production  289 

<block  definition>  : :=  <block  stmt>  <block  body>  <closing>  ; 

TEMP  = ICLS  for  inline, 

CLOSE  for  normal. 

TEMP 2 = INLINE_LEVEL  for  inline  function, 

0 otherwise. 

Issue  the  ICLS  or  CLOSE  instruction. 

='  Make  a pass  over  all  the  symbol  table  entries  for  this 

scope i DISCONNECTing  them  along  the  way. 

functions  should  have  been  defined 

statement  labels  should  have  been  defined 

in  the  outermost  scope,  procedures  and  tasks 
should  have  been  defined 

in  embedded  scopes , block  'Summary  information  should 
be  supplied  for  undefined  procedures  and  tasks 

if  a procedure  call  referencing  an  IND_CALL_LAB 
can  definitely  be  associated  with  a procedure 
definition,  add  the  cross  reference  data  from  the 
IND_CALL_LAB  to  the  definition  entry  using  TIE_XREF 

If  the  <closing>  specified  a name,  check  that  it  matches 
the  name  of  this  scope. 

If  it  is  an  inline  function,  save  the  inline  counters 
and  restore  the  regular  ones. 

r 

-T- 
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If  it  is  not  an  inline  BLOCK_SUMMARY  prints  the  block 
summary  information  for  the  scope  being  closed. 

Count  the  unique  errors  handled  by  the  block,  encode 
the  information  in  SYT_ARRAY  and  discard  the  now  useless 
EXT  ARRAY  entries. 


Productions  290,  231  <block  body> 

— I <declare  group> 

Issue  an  EDCL  indicating  whether  or  not  there  was  a 
<declare  group>. 

For  functions  and  procedures,  check  that  all  parameters 
have  been  declared. 

Set  that  no  statements  have  been  processed  yet. 

Production  292  <block  body>  : :=  <block  body>  <any  statement> 

Set  that  a statement  has  been  found. 

Production  426-428  <closing>  : :=  CLOSE 

I CLOSE  < label > 

I <label  definition>  <closing> 

If  there  is  a < label  definition>  SET_LABEL_TYPE . If 
there  is  a <label>  save  it  in  VAR (< closing  >)  to  check  it 
in  production  289. 
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4.4.8  HALMAT  and  Initialization  Routines 

HALMAT^POP  — 804000 
HALMAT_FIX_POPTAG  — 808000 
HALMAT  FIX  PIP#  — 807200 


CALL  HALMAT  POP (OP,  n,  C,  tag)  creates 


CURRENT_ATOM  = 

tag 

' 

n 

OP 

. 1 

C 

0 

8 

8 

.12 

3 

1 

This  is  inserted  in  the  HALMAT  block  and  LAST_POP#  points 
to  it. 


HALMAT_FIX_POPTAG  resets  tag  field. 
HALMAT  FIX  PIP#  resets  field  n. 


HALMAT_PIP  — 805000 

HALMAT_FIX__PIPTAGS  — 808800 


CALL  HALMAT_PIP(A,  B,  c,  D)  creates 


CURRENT_ATOM  = 

1 ' A 

1 

c 1 

B 

D 

1 

16 

8 

4 

3 

1 

and  enters  it  into  the  current  HALMAT  block. 

HALMAT_FIX_P1PTAGS  resets  field  C with  argument  1, 
and  field  D with  argument  2. 


HALMAT_TUPLE  — 805900 

CALL  HALMAT_TUPLE  (op,  b,  oprndl,  oprnd2,  tag,  rndltl, 

rndlt2,  rnd2tl,  fnd2t2) 

0 

tag  1 op  b 0 

2 

sym  pointer  1 rndltl  form  1 rndlt2  1 if  oprndl?^0 

sym  pointer  2 rnd2tl  form  2 rnd2t2  1 ■«-  if  oprnd2=^l 
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HALMAT 

HALMAT_BACKUP 
HALMAT_BLAB 
HALMAT  RELOCATE  — 


801100 

803400 

790000 

794100 


HALMAT  calls  HALMATJDUT  to  output  the  current  block  if  _ 
necessary  and  then  puts  CURRENT_ATOM  into  the  block.  HALMAT_BLAB 
prints  a HALMAT  instruction.  HALMAT  RELOCATE  moves  do^^^ 

HALMAT  code  when  the  previous  code  has  been  forced  out  leaving 
an  empty  space.  HALMAT_BACKUP  resets  the  pointer,  thereby 
erasing  some  HALMAT. 


INITIALIZATION  — 1055200 


Pick  up  the  options  specified  in  the  JCL  invocation  of  the 
compiler.  Print  the  heading  using  the  TITLE  if  supplied;  other- 
wise, the  default.  Print  the  parameter  field  from  the  JCL. 
Print  the  type  1 and  type  2 options  and  store  their  values  in 

more  accessible  places. 

Allocate  space  for  the  based  variables  other  than  the  symbol 
table  used  in  Phase  I via  STORAGE_MGT. 

Define  all  the  pointers  into  the  DW  area. 

Allocate  space  for  the  common  and  then  non-common  symbol 
table  arrays. 

Define  the  card  type  characters  using  the  defaults  and 
the  CARDTYPE  parameter. 

Read  a card,  determine  the  style  of  input  and  if  the  first 
card  could  not  follow  a comment,  skip  cards  until  a reasonable 

one  is  found. 

Initialize  the  scanner  with  calls  to  STREAM  and  SCAN. 

Initialize  the  parser  to  the  initial  state  and  build  the 
VOCAB  INDEX  array  .for  it. 
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4. 5 Global  Names  of  Phase  I 

4.5.1  Variables 

#PRODUCE_NAME 
ACCESS_FLAG 
AGCESS_FOUND 
ADD_AND_SUBTRACT 
ADDR_FIXED_LIMIT 
ADDR_FIXER 
ADDR_PRESENT 
ADDR_ROUNDER 
ADDR_VALUE 
ALDENSE_FLAGS 
ALIGNED_FLAG 
ALMOST__DISASTER 
ANY_TYPE 
APPLYl 
APPLY 2 

AR I TH_FUNC_TOKEN 
ARITH_LITERAL 
AR  I TH_S  HAPER_SUB 
ARITH_TO__GHAR 
ARITH_TOKEN 
ARRAY_DIM_LIM 
ARRAY_FLAG 
ARRAY_SUB_GOUNT 
ARRAYNESS  FLAG 


See  Parser. 

See  symbol  table  — SYT_FLAGS. 

See  STREAM. 

Procedure . 

See  SGAN . 

See  SGAN. 

On  if  ADDRS  option  requested  in  JGL. 
See  DW. 

See  SGAN. 

See  symbol  table  — SYT_FLAGS . 

Label. 

See  symbol  table  — SYT_TYPE. 

See  Parser. 

See  Parser. 

See  TOKEN. 

Procedure. 

Procedure. 

Procedure* 

See  TOKEN. 

The  maximum  size  of  an  array  dimension. 
See  symbol  table  --  SYT_FLAGS. 

Section  4.4. 

Gurrent  expression  is  arrayed. 


•i 
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ARRAYNESS  NEST 


Not  used 


ARRAYNESS_STACK 

AS_PTR 

ASSIGN_ARG_LIST 

ASSIGN_CONTEXT 

ASSIGN_PARM 

ASSIGN_TYPE 

ASSOCIATE 

AST_STACKER 

ATOM#_FAULT 

ATOMS 

ATTACH_SUB_ARRAY 

ATTACH_SUB__COMPONENT 

ATTACH__SUB__STRUCTURE 

ATTACH_SUBSCRIPT 

ATTR_BEGIN_FLAG 

ATTR_FOUND 

ATTR_INDENT 

ATTR_LOC 

ATTRJMASK 

ATTRIBUTES 

AUTO_FLAG 

AUTSTAT_FLAGS 

BASE_PARM_LEVEL 

BCD 


Section  4.4. 

Section  4.4. 

Section  4.4. 

See  CONTEXT  in  SCAN. 

See  symbol  . table  — SYT_FLAGS . 

Section  4.4. 

Procedure . 

Procedure. 

Section  4.4. 

Section  4.4. 

! 

\ Procedure. 

See  GRAMMAR_FLAGS . 

Section  4.4. 

The  amount  to  indent  after  an  attribute 
^ Section  4 . 4 

See  symbol  table  — SYT_FLAGS . 

See  symbol  table  — SYT_FLAGS. 

See  STREAM. 

See  SCAN. 
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WggTWp^lflUMjipCT 


BCD_PTR 

BEGINP 

BI_ARG_TYPE 

BI_FLAGS 

BI_FUNC_FLAG 

BI_INDEX 

BI_INFO 

BI_NAME 

BI_XREF 

BIT_FUNC_TOKEN 

BIT_LENGTH 

BIT_LENGTH_LIM 

BIT_LITERAL 

BIT_TOKEN 

BIT_TYPE 

BLANK 

BLANK_COUNT 

BLOCK_MODE 

BLOCK_SUMMARY 

BLOCK_SUMMAR  Y_I  S SUED 

BLOCK_SYTREF 

BORC_TYPE 

BUILDING  TEMPLATE 


See  GRAMMAR^FLAGS . 

Temporary . 

Section  4.4. 

Section  4.4. 

Section  4.4. 

See  SCAN. 

See  SYNTHESIZE. 

See  SCAN. 

Section  4.4. 

See  TOKEN. 

Section  4.4. 

Section  4.4. 

Procedure . 

See  TOKEN. 

See  symbol  table  — SYT_TYPE. 
Procedure . 

See  STREAM. 

See  SYNTHESIZE. 

Procedure . 

Not  used. 

Section  4.4 

See  symbol  table  — SYT_TYPE 
Section  4.4 


C 
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c 

CALL_SCAN 

CALLED__LABEL 

CARD_COUNT 

CARD_TYPE 

CASE_LEVEL 

CASE_STACK 

CHAR_FUNC_TOKEN 

CHAR_INDEX 

CHAR_LENGTH 

CHAR_LENGTH_LIM 

CHAR_LITERAL 

CHAR  OP 


Temporary . 
Procedure . 

Not  used. 

See  STREAM. 

See  STREAM. 
Section  4.4. 
Section  4.4. 

See  TOKEN. 
Procedure . 

Section  4.4. 
Section  4,4. 
Procedure. 

See  0-W  and  SCAN. 


CHECK_NAMING 

CHECK_STRUC_CONFLICTS 

CHECK_SUBSCRIPT 

CHECK_TOKEN 

CLASS 


^ Procedure. 
Section  4.4. 


CLASS_A 
CLASS_AA 
CLASS  AV 


CLASS _XM 
CLASS_XU  ■ 
CLASS_XV 
CLOCK 


CLOSE_BCD 

CiyiPL_MODE 

COMMA 

COMMENT_COUNT 

COMMENTING 
COMMON_SYTSIZES (i) 

COMPARE 


y Error  codes  — see  User's  Manual. 


0 - beginning  of  time. 

1 - time  at  end  of  set  up. 

2 - time  at  end  of  processing. 

3 - time  at  end  of  clean  up. 

Section  4.4. 

Compiling  a COMPOOL. 

See  TOKEN. 

See  0-W. 

See  STREAM. 

The  number  of  bytes  for  an  entry  in  the 
ith  common  symbol  table  array. 

Procedure. 


COMPILATION_LOOP  Procedure. 

COMPILING  Switch  on  while  computation  is  continu- 

ing normally. 

COMPOOL_LABEL  See  symbol  table  — SYTJTYPE. 

COMPRESS_OUTER_REF  Procedure. 

CONCATENATE  See  TOKEN. 

C0NSTANT_FLAG  See  symbol  table  — SYT_FLAGS. 

CONTEXT  See  SCAN. 
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CONTROL 


-41?  V- 


COPINESS 

CPD_NUMBER 

CROSS 

CROSS_COUNT 

CROSS_TOKEN 

CUR_IC_BLK 

CURLBLK 

CURRENT_ARRAYNESS 

CURRENT_ATOM 

CURRENT_CARD 

CURRENT_SCOPE 

DECLARE_CONTEXT 

DECLARE_TOKEN 

DECOMPRESS 

DEF_BIT_LENGTH 

DEF_CHAR_LENGTH 

DEF_MAT_LENGTH 

DEF_VEC_LENGTH 

DEFAULT_ATTR 

DEFAULT_TYPE 

DEFINED  LABEL 


There  are  a collection  of  diagnostic 
control  toggles  that  can  be  set  by 
❖toggle  on  DEBUG  directives  (Section 
2,2.7),  CONTROL(O)  is  status  df  <=0, 

CONTROL  ("F”)  is  status  of  <:F. 

Procedure . 

See  TOKEN. 

Signal  for  a cross  product. 

The  nvunber  of  cross  products  in  a product. 
See  TOKEN. 

Section  4.4. 

See  literal  table. 

Section  4.4. 


Section  4.4. 


See  STREAM. 

Name  of  the  block  actually  being  read 
by  STREAM. 

See  SCAN  — CONTEXT. 

See  TOKEN . 


Propedure . 


Seei  SCAN. 


See  symbol  table  — SYT_FLAGS. 
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DELAY  CONTEXT  CHECK 


Section  4 . 4 


^ > 

DESNE_FLAG 

DESCORE 

DISASTER 

DISCONNECT 

DO_CHAIN 

DO_INIT 

DO_INX 

DO_LEVEL 

DO_LOC 

DO_PARSE 

DO_TOKEN 

DOLLAR 

1 

' DONT_SET_WAIT 

DOT 

DOT_COUNT 

DOT_TOKEN 

DOUBLE 

DOUBLE_FLAG 

DUMMY_FLAG 

DUMP_MACRO_LIST 

DUMP IT 

DUPL  FLAG 


See  symbol  table  — SYT_PLAGS. 
Procedure. 

Procedure . 

Procedure , 


Section  4.4. 


See  TOKEN. 

See  TOKEN. 

See  SCAN  — PRINTING_ENABLED . 
Signal  for  a dot  product. 

Count  of  dot  products  in  a product. 
See  TOKEN. 

See  0-W. 

See  symbol  table  — SYT_FLAGS. 

See  symbol  table  — SYT_FLAGS. 

See  0-W. 

Procedure. 

See  symbol  table  — SYT  FLAGS 


V 


IT* 

':ir 
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I Iiuiii  Mimj 


DW_AD 

EMIT_ARRAYNESS 

EMIT_EXTERNAL 

EMIT_PUSH_DO 

EMIT_SMRK 

EMIT_SUBSCRIPT 

END_ANY_FCN 

END_GROUP 

END_OF_INPUT 

END_SUBBIT_FCN 

ENDITNOW 

ENDSCOPE_FLAG 

ENTER 

ENTER_DIMS 

ENTER_XREF 

EOFILE 

EQUATE_CONTEXT 

EQUATE_IMPLIED 

EQUATE_LABEL 
INTERMETRICS  INCORPORATED 


An  area  set  aside  for  communication  with 
the  MONITOR. 

^ ¥ 

Map  of  DWr 

byte 

offset  index 

0 
4 

24 
32 
40 
48 


0 ■«■  DM  AD 

t s r 

» •: 

« s 

• ' 

1 

6 ♦ ADDR_VALUE 

■4EI 

00 

00 

00 

8 ADDRJ?1XER 

) 

48 

7F 

FF 

FF 

10^  ADDR_FIXED_LIMIT 

FF 

FF 

FF 

FF 

40 

7F 

FF 

FF 

12'^  aodr_rounoer 

FF 

FF 

FF 

FF 

The  address  of  DW(0)^ 


A Procedure . 


See  STREAM. 
See  STREAM. 
Procedure. 


Procedure. 

See  symbol  table  — SYT_FLAGS. 

Procedure. 

Procedure. 

Procedure. 

See  TOKEN. 

See  CONTEXT. 

EQUATE  names  are  kept  in  the  symbol  table 
with  a @ prepended  to  them.  EQUATE_IMPLIED 
is  on  until  this  transformation  is  made. 

See  symbol  table  • — SYT_TYPE . 
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EQUATE_TOKEN 

See  TOKEN. 

ERROR 

Procedure . 

ERROR_  CLASSES 

A character  string  used  to  produce  the 
two  letter  error  class  code. 

ERROR_COUNT 

Number  of  errors  accumulated  during 
compilation. 

ERROR_SUB 

Procedure . 

ERROR_SUMMARY 

Procedure. 

ESCAPE 

Non-HAL  escape  character. 

EVENT_TOKEN 

See  TOKEN. 

event_tyRe 

See  symbol  table  — SYT  TYPE. 

EVIL_FLAG 

See  symbol  table  — SYT  FLAGS. 

EXCLUSIVE_FLAG 

See  symbol  table  — SYT  FLAGS. 

EXP_OVERFLOW 

See  SCAN. 

EXP_TYPE 

See  SCAN. 

EXPONENT 

See  TOKEN. 

EXPONENT_LEVEL 

Incremented  by  one  for  every  **,  de- 
cremented at  the  end  of  the  exponent. 

EXPONENTIATE 

See  TOKEN. 

EXPRESS ION_CONTEXT 

See  SCAN  — CONTEXT. 

EXT_ARRAY 

See  symbol  table. 

EXT_ARRAY  PTR 

See  symbol  table  - EXT  ARRAY. 

EXT_P 

Section  4.4. 

EXTERNAL 

Section  4.4. 

EXTERNAL_FLAG 

See  symbol  table  --  SYT  FLAGS. 

EXTERNALIZE 

Section  4.4. 

FACTOR 

See  TOKEN. 

FACTOR  FOUND 

Section  4.4. 
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FACTORED_ATTR_MASK 

FACTORED_ATTRIBUTES 

FACTORED_BIT_LENGTH 

FACTORED_CHAR_LENGTH 

FACTO  RED_CLASS 

FACTORED_IC_FND 

FACTORED_IC_PTR 

FACTORED_LOCK# 

FACTO  RED_MAT_LENGTH 

FACTORED_N_D  IM 

FACTORED_NONHAL 

FACTORED_S_ARRAY 

FACTORED_STRUC_DIM 

FACTORED_STRUC_PTR 

FACTORED  TYPE 

FACTO  RED_VEC_LENGTH 

FACTORING 

FCN_ARG 

FCN_LOC 

FCN_LV 

FCN_MODE 

FIRST_FREE 

FRIST  STMT 


I FACT0RED_XXX  is  copied  to  and  from 
> XXX  by  a loop  copying  between  the 
"array"  TYPE  and  the  "array" 
FACTORED  TYPE. 


> Section  4.4 


See  MACRO_TEXT  in  SCAN. 
Section  4.4. 
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FIRST  TIME 


See  STREAM 


F I RS T_T IME_PARM 

FIX_DIM 

FIXF 

FIXING 

FIXL 

FIXV 

FL_NO 

FL_NO_MAX ' 

FLOATING 

FOUND_CENT 

FUNC_CLASS 

FUNC_FLAG 

FUNC_MODE 

GET_ARRAYNESS 

GET_FGN_PARM 

GET_ICQ 

GET  LITERAL 


IN'^ERMETRICS  INCORPORATED 


See  STREAM.’ 

Section  4.4. 

Section  4.4. 

See  SCAN . 

Section  4.4. 

Section  4.4. 

Section  4.4. 

Section  4.4. 

Procedure. 

See  SCAN. 

See  symbol  table  — SYT_FLAGS. 
See  GRAMMAR_FLAGS . 

Section  4.4. 

Procedure . 

Procedure. 

Procedure. 

Procedure. 
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GRAMMAR  FLAGS 


The  statement  stack  is  used  to  store  up 
a source  statement  before  printing.  The 
stack  is  built  of  three  parallel  arrays 
as  indicated  in  the  diagram.  STMT_PTR 
points  to  the  top-most  entry  in  the  stack. 
Notice  that  the  actual  character  strings 
are  stored  in  SAVE_BCD.  TOKEN_FLAGS  simply 
contains  an  index  into  SAVE_BCD.  BCD  PTR 
points  to  the  last  entry  in  SAVE_BCD.“  In  the 
general  case , some  of  the  material  in  the 
stack  has  been  printed  and  LAST_WRITE  points 
to  the  first  unprinted  item. 

A Statement  Stack  Item; 


STMT_STACK  TOKEN_PIAGS  GRAMMAR  FLAGS 


In  order  to  associate  items  in  the  parser's 
stack  with  their  entries  in  the  statement 
Stack,  the  parser  maintains  STACK_PTR  entires. 
STACK_PTR  (parser  stack  pointer)  points  to 
the  element's  entry  in  the  statement  stack. 

GRAMdAR_FLAGS  values. 

0042  ATTR_BEGIN_FLAG 

0428  FUNC_FLAG  Token  is  a function  call. 

0577  INLINE_FLAG  Token  is  an  inline  function. 

0671  LABEL_FLAG  Token  is  a label. 

0687  LEFT_BRACE_FLAG  Proceed  token  by  ' { ' on  output. 

0688  LEFT_BRACKET_FLAG  Preceed  token  by  on  output. 

0786  MACRO_ARG_FLAG  Token  is  an 'argument  to  a macro. 

0976  PRINT_FLAG  Token  should  be  printed. 

0978  PRINT  FLAG  OFF  -iPRINT_FLAG  — Used  to  turn  off 

” ■ PRINT  FLAG.  ■ 


1047  RI  GHT_BRACE__FLAG 

1048  RIGHT_BRACKET_FLAG 
1160  STMT  END  FLAG 


Append  after  token  on  output. 
Append  "]"  after  token  on  output. 
Final  token  in  statement. 
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GRAMMAR_FLAGS_UNFLO 

GROUP_NEEDED 

HALMAT 

HALMAT_BACKUP 

HALMAT_BLAB 

HALMAT_BLOCK 

HALMAT_CRAP 

HALMAT_FILE 

HALMAT_FIX_PIP# 

HALMAT_F IX_P IPTAGS 

HALMAT_FIX_POPTAG 

HALMAT_I N I T_CONS t 

HALMAT_OK 

HALMAT__OUT 

HALMAT_PIP 

HALMAT_POP 

HALMAT_RELOCATE 

HALMAT_RELOCATE_FLAG 

HALMAT_TUPLE 

HALMAT_XNOP 

HASH 

HEX 

HOW_TO_INI T_ARGS 
I 

I FORMAT 


Not  used. 

See  STREAM.  ■ 

Procedure . 

Procedure 

Procedure. 

Section  4.4. 

The  HALMAT  file  is  bad. 

Section  4.4. 

Procedure. 

Procedure . 

Procedure. 

Procedure. 

The  HALMAT  file  is  ^ood. 

Procedure. 

Procedure . 

Procedure. 

PROCEDURE 

The  HALMAT  is  not  positioned  at  the  bottom 
of  the  buffer  and  should  be  moved  down. 

Procedure. 

Procedure. 

Procedure. 

Procedure. 

Procedure. 

Temporary. 

Procedure. 
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IC  FILE 


IC_FND 

IC_FORM 

IC_FOUND 

IC_j:iEN 

IC_LIM 

IC_LINE 

IC_LOC 

IC__MAX 

IC_ORG 

IC_PTR 

IC_PTR1 

IC_PTR2 

IC_TYPE 

IC_VAL 

ICQ 

JCQ_ARilAY# 

ICQ_ARRAYNES  S_OUTPUT 
ICQ_CHECK_TYPE 
ICQ_OUTPUT 
ICQ  TERM# 


W Section  4.4. 


L Procedure. 
/•^  • 


ID  LOG  Section  4.4. 

ID_TOKEN  See  TOKEN . 

IDENT_COUNT  See  SCAN. 

IDENTIFY  Procedure. 

I ' 

■ ■ 
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ILL__ATTR 

ILL__CLAS  S_ATTR 

I LL__EQUATE_ATTR 

ILIi_INIT_ATTR 

ILL__LATCHED_ATTR 

ILL_MINOR_STRUC 

ILL_NAME_ATTR 

ILL_TEMPL_ATTR 

ILL_TEMPORARY_ATTR 

ILL_TERM_ATTR 

IMP_DECL 

IMPL_T_FLAG 

IMPLICIT_T 

IMPLIED_TYPE 

IMPLIED_UPDATE_LABEL 

INACTIVE_FLAG 

INCLUDE_CHAR 

INCLUDEjCOMPRESSED 

INCLUDE_END 

INCLUDE_LIST 

INCLUDE_LIST2 

INCLUDE_MSG 

INCLUDE_OFFSET 

INCLUDE_OPENED 

INCLUDING 


Section  4.4. 


See  symbol  table  — SYT_FLAGS. 

See  symbol  table  — , SYT_PLAGS. 
See  SCAN. 

See  SCAN. 

Section  4.4. 

See  symbol  table  — SYT_FLAGS. 
See  0-W. 


See  STREAM. 
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IND_Ci‘iLL_LAB 

IND_ERR_# 

IND_LINK 

IND_STMT_LAB 

INDENT_INCR 

INDENT_LEVEL 

INDEXl 

INDEX 2 

INFORMATION 

INIT_CONST 

INIT_EMISSION 

INIT_FLAG 

INITC0NST_0FP 

INITIAL_INCLUDE_RECORD 

INITIALIZATION 

INLINE_FLAG 

INLINE_INDENT 

INLINE_INDENT_RESET 

INLINE_LABEL 

INLINE_LEVEL 

INLINE_MODE 

INLINE_NAME 

INLINE_STMT_RESET 

INP  OR  CONST 


See  symbol  table  — SYTJTYPE. 
Temporary . 

Section  4,4. 

See  symbol  table  — SYT_TYPE. 
Section  4.4. 

See  0-W. 

See  Parser. 

See  Parser. 

See  0-W. 

See  symbol  table  — SYT_FLAGS. 
Section  4.4, 

See  symbol  table  — SYTJPLAGS. 

See  symbol  table — SYT_PLAGS. 

See  STREAM . 

Procedure  * 

See  GRAMMAR_FLAGS . 

See  0-W. 

See  0-W. 

Section  4.4. 

Section  4.4. 

See  BLOCKjyiODE . 

Section  4.4. 

Used  in  inline  processing  to  allow 
temporary  resetting  of  STMTJNUM. 

See  symbol  table  — SYT  FLAGS. 
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INPUT_DEV 
INPUT_PARM 
INPUT_REC 
INT_TYPE 

INTERPRET_ACCESS_FILE 

INX 

lODEV 

lORS 

lORSJTYPE 

! i."V'  J 

:!  ' ' ' 

1 K 

' ■ i ; 

KILL_NAME 

KIN 

i'  L 

H ) 

I LABjrOKEN 

^ ; j I LABEL_CLASS 

I I LABELjCOUNT 

LABELJDEFINITION 
LABEL_FLAG 
LABEL_IMPLIED 
LABEL_MATCH 
I LAST 

LAST_POP# 

LAST_SPACE 
I LAST_WRITE 

LATCHED_FLAG 
LEFT  BRACE  FLAG 

) 

f 


See  STREAM. 

See  symbol  t.able  — SYT__FLAGS. 

See  STREAM. 

See  symbol  table  — SYT__TYPE. 

Procedure . 

Section  4.4. 

See  SYNTHESIZE. 

Procedure . 

See  symbol  table  — SYT_TYPE. 

Temporary . 

Temporary . 

Procedure. 

See  SCAN. 

Temporary* 

See  TOKEN. 

Class  for  label  symbols. 

Number  of  labels  on  current  statement. 
See  TOKEN. 

See  GRAMMAR_FLAGS . 

See  SCAN  --  CONTEXT. 

Procedure . 

See  0-W. 

Section  4.4. 

See  O-W. 

See  GRAMMAR_FLAGS . 

See  symbol  table  — SYTJFLAGS. 

See  GRAMMAR  FLAGS. 


LEFT_B.RACKET_FLAG  See  GRAMMAR_FLAGS . 
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LEFT  PAD 


Procedure 


LEFT_PAREN 

LETTER_OR_D  IG I T 

LEVEL 

LINE_LIM 

LINE_MAX 

LISTING2 

LISTING2_C0UNT 

LIT_CHAR 

LIT_CHAR_AD 

LIT_CHAR_/REE 

LIT_^CHAR_SIZE 

LIT_DUMP 

LIT__PTR 

LIT_RESULT_TYPE 

LIT_TOP 

LITLIM 

LITMAX 

LITORG 

LITl 

LIT2 

LIT  3 

LOC_P 

LOCK_FLAG 

LOCK_LIM 

LOCK# 

INTERMETRICS  INCORPORATED 


See  TOKEN. 
See  STREAM. 
See  TOKEN. 
See  0-W. 


See  0-W. 

ON  for  second  listing. 

The  number  of  lines  already  used  on  the 
current  LISTTNG2  page. 

See  literal  table. 

See  literal  table. 

See  literal  table. 

See  literal  table. 


Procedure. 


Procedure . 


See  literal  table. 


Section  4.4. 

See  symbol  table  --  SYT_FLAGS. 

The  maximvim  LOCK# . 

Section  4.4. 
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LOOK 


See  Parser 


LOOK_STACK 

LOOKUP_ONLY 

LOOKl 

LOOK2 

LRECL 

M_BLANK_COUNT 

M_CENT 

M_P 

M_PRINT 

M_TOKENS 

MAC_NUM 

MACRO_ADDR 

MACRO_ARG_COUNT 

MACRO_ARG_PLAG 

MACRO_CALL_PARM_TABLE 

MACRO_EXPAN_LEVEL 

MACRO_EXPAN_STACK 

MACRO_FOUND 

MACRO_INDEX 

MACRO_NAME 

MACRO_POINT 

MACROJTEXT 

MACRO  TEXT  DUMP 


See  Parser. 

See  SCAN. 

See  Parser. 

See  Parser. 

See  STREAM. 

See  SCAN. 

See  STREAM. 

See  SCAN. 

See  SCAN. 

See  SCAN. 

See  O-W. 

A word  containing  a dummy  character  string 
descriptor  of  the  REPLACE  text  area. 

See  SCAN. 

See  GRAMMAR_FLAGS . 

See  SCAN. 

See  STREAM. 

See  SCAN . 

See  STREAM. 

See  O-W.  . 

See  SCAN. 

See  SCAN . 

See  .SCAN..' 

Procedure. 
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MACRO_TEXT_LIM 

MAIN_SCOPE 

MAJ_STRUC 

MAKE_FIXED_LIT 

MAT_DIM_LIM 

MAT_LENGTH 

MAT_TYPE 

MATCH_ARITH 

MATCH_ARRAYNESS 

MATCH_SIMPLES 

MATRIX_COMPARE 

MATRIX_COUNT 

MATRIX_PASSED 

MATRIXP 

MAX 

MAX_PTR_TOP 

MAX_SCOPE# 

MAX_SEVERITY 

MAXNEST 

MAXSP 

MAX 

MIN 

I 

J 

MISC  NAME  FLAG 


Nximber  of  characters  of  storage  allocated 
for  REPLACE  <text> . 

The  SYT_SCOPE  value  of  the  compilation 
unit. 

See  symbol  table  — SYT__TYPE. 

Procedure . 

Largest  legal  matrix  dimension. 

Section  4.4. 

See  symbol  table  — SYT_TYPE. 

Procedure . 

Procedure. 

Procedure . 

Procedure. 

The  number  of  matrices  in  a product. 

The  mamber  of  matrices  to  multiply  by 
a vector. 

Pointer  to  the  stack  entry  for  the  current 
product  of  matrices. 

Procedure. 

Section  4.4. 

Section  4.4. 

Maximum  error  severity  encountered. 

Section  4.4. 

The  maximum  stack  size  achieved. 

Procedure. 

Procedure . 

Temporaries. 

Temporaries. 

See  symbol  table  — SYT  FLAGS. 
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MP 


See  Parser 


MPPl 

See  Parser'. 

MULT IPL Y_SYNTHES I ZE 

Procedure . 

N__DIM 

Section  4.4. 

NAME_ARRAYNESS 

Procedure. 

NAME_BIT 

Item  is  NAME  (something) . 

NAME_COMPARE 

Procedure. 

NAME_FLAG 

See  symbol  table  — SYT_FLAGS. 

NAME_HASH 

See  STREAM. 

NAME_IMPLIED 

Processing  a declaration  for  a NAME 
variable. 

NAME_PSEUDOS 

Processing  a NAME  variable. 

NAMING 

Have  seen  a NAME  pseudo-function  and 
have  not  yet  encountered  the  closing 

paren. 

NDECSY 

See  symbol  table. 

NEST 

Section  4.4. 

NEW__LEVEL 

See  STREAM. 

NEW_MEL 

See  SCAN. 

NEXT 

See  STREAM. 

NEXT_ATOM# 

Section  4.4. 

NEXT_CHAR 

See  STREAM. 

NEXT_RECORD 

Procedure . 

NEXT_SUB 

Section  4.4. 

NEXTIME_LOC 

50. 
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NO_ARG_ARI TH_FUNC 

NO_ARG_BIT_FUNC 

NO_ARG_CHAR__FUNC 

NO_ARG_STRUCT_FUNC 

NO_LOOK_AHEAD_DONE 

NONBLANK_FOUND 
NONCOMMON_SYTSIZES (i) 

NONHAL 

NONHAL_FLAG 

NOT_ASSIGNED_FLAG 

NT_PLUS_1 

NUM_ELEMENTS 

NUM_FL_NO 

NUM_OF_PARM 

NUM_STACKS 

NUMBER 

OLD_LEVEL 

OLD_MEL 

OLD_MP 

OLD_PEL 

OLD^TOPS 

ON_ERROR_PTR 

ONE  BYTE 


See  TOKEN. 


See  Parser. 

See  STREAM. 

The  number  of  bytes  in  an  entry  in  the  i 
non-common  symbol  table  array. 

Section  4.4. 

See  symbol  table  ■ — SYT_FLAGS. 

A local  variable  of  SYT_DUMP. 

Not  used. 

Section  4.4. 

Section  4.4. 

See  STREAM. 

Section  4.4. 

See  TOKEN . 

See  STREAM. 

See  SCAN . 

See  SCAN. 

See  SCAN. 

See  SCAN. 

See  symbol  table  --  EXT_^ARRAY. 

Temporary. 
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OPTIONS_CODE 

ORDER_OK 

OUT_PREV_ERROR 

OUTER_REF 

OUTER_REF_INDEX 

OUTER_REF_PTR 

OUTPUT_GROUP 

OUTPUT_WRITER 

OUTPUT  WRITER  DISASTER 


See  COMM (7). 

Procedure. 

See  0-W, 

See  OUTER_REF  in  SCAN. 

See  OUTER_REF  in  SCAN. 

See  OUTER_REF  in  SCAN. 

Procedure . 

Procedure. 

Label  in  main  program.  OUTPUTJWRITER 
jumps  here  when  all  is  lost. 


OVER_PUNCH 

OVER_PUNCH_TYPE 

P_CENT 

PAD 

PADl 

PAD2 

PAGE 

PAGE_THROWN 

PARM_CONTEXT 

PARM_COUNT 

PARM_EXPAN_LEVEL 

PARM_FLAGS 

PAPjyi_  REPLACE_PTR 

PAEM  STACK  PTR 


See  STREAM. 

See  0-W  and  SCAN. 

See  STREAM. 

Procedure. 

See  0-W. 

See  0-W. 

See  0-W. 

See  0-W. 

See  CONTEXT  in  SCAN. 

See  SCAN. 

See  STREAM. 

See  symbol  table  — SYT_FLAGS. 
See  STREAM. 

See  STREAM. 


D 
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PARMS_PRESENT 

PARMS_WATCH 

PARSE_STACK 

PARTIAL__PARSE 

PASS 

PC_LIMIT 

PCARG# 

PCARGBITS 

PCARGOFF 

PCARGTYPE 

PCNAME 

PERCENT_MACRO 

PERIOD 

PHASE1_FREESIZE 

PHASE 2_STUFF 

PLUS 

PP 

PPTEMP 

PREP__LITERAL 

PREVIOUS_ERROR 

PRINT_DATE_AND_TIME 

PRINT_FLAG 

PRINT  FLAG  OFF 


INTERMETRICS  INCORPORATED  ‘ 701 


Section  4.4. 

Section  4.4. 

See  Parser. 

ON  if  PARSE  request  in  JCL  option. 

See  SCAN. 

See  SCAN. 

Section  4.4. 

Section  4.4. 

Section  4.4. 

Section  4. '4. 

See  SCAN. 

See  TOKEN. 

A 

Storage  avove  this  point  is  for  Phase  1 
only  and  can  be  returned  at  the  end. 

Not  used. 

See  0-W. 

Temporary . 

Temporary. 

Procedure*. 

See  0-W. 

Procedure. 

See  GRAMMAR_FLAGS . 

See  GRAMMAR  FLAGS. 
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[r 


PRINT_SUMMARY 

PRINT_TIME 

PRINT ING_ENABLED 

PRINT 2 

PROC_LABEL 

PROC_MODE 

PROCESS_CHECK 

PROCMARK 

PROCMARK_STACK 

PROG_LABEL 

PROG_MODE 

PROGRAM_ID 

PROGRAM_LAYOUT 

PROGRAM_LAYOUT_INDEX 

PSEUDO_FORM 

PSEUDO_LENGTH 

PSEUDO_TYPE 

PTR 

PTR_TOP 

PUSH_FCN_STACK 
PUSH_INDIRECT 
QUALIFICATION 
READ_ACCESS_FLAG 
READ  ALL  TYPE 


— SYT  TYPE. 


Procedure . 

Procedure. 

See  SCAN. 

Procedure . 

See  symbol  table 
Section  4.4. 

Procedure . 

Section  4.4. 

Section  4.4. 

See  symbol  table  — SYT_TYPE. 
Section  4.4. 

See  ISTREAM. 


Section  4.4. 


Procedure. 
Procedure . 

See  SCAN. 

See  symbol  table 
Procedure . 


— SYT  FLAGS, 
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READ_TYPE 

READl 

READ  2 

RECOVER 

RECOVERING 

REDUCE_SUBSCRIPT 

REDUCTIONS 

REENTRANT_FLAG 

REF_ID_LOC 

REFER_LOC 

REGULAR_PROCMARK 

REL_OP 

REMOTE_FLAG 

REPL_ARG_CLASS 

REPL_CLASS 

REPL_CONTEXT 

REPI^CE_PARM_CONTEXT 

REPLACE_TEXT 

REPLACE_TOKEN 

RESERVED_LIMIT 

RESERVED_WORD 

RESET_ARRAYNESS 

RESTORE 


See  Parser. 

See  Parser. 

See  Parser. 

Procedure . 

See  0-W. 

Procedure. 

See  Parser. 

See  symbol  table  — SYT_FLAGS. 

Section  4.4. 

Section  4.4. 

A pointer  to  the  first  symbol  table  entry 
for  the  current  procedure. 

Section  4.4. 

See  symbol  table  — SYT_FLAG. 

See  symbol  table  — SYT_CLASS. 

See  symbol  table  — SYTjCLASS . 

See  SCAN  — CONTEXT. 

See  SCAN  — CONTEXT. 

See  TOKEN . 

See  TOKEN. 

See  SCAN. 

See  SCAN. 

Procedure . 

See  SCAN. 
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RIGHT_BRACE_FLAG 

See 

RIGHT_BRACKET  FLAG 

See 

RIGID_FLAG 

See 

RT  PAREN 

See 

GRAMMAR_FLAG . 

GRAMMAR _PLAG. 

symbol  table  — SYT_FLAGS. 
TOKEN. 


S 


Temporary  character  string. 


S_ARRAY  Section  4.4.- 

SAVE_ARRAYNESS  Procedure . 

SAVE_ARRAYNESS_FLAG  ARRAYNESS_FLAG  saved  here  while  proces- 

sing subscripts. 


SAVE_BCD 

SAVE_BLANK_COUNT 

SAVE_CARD 

SAVE_COMMENT 

SAVE_DUMP 

S AVE_ERROR_ME  S SAGE 

SAVE_GROUP 

SAVE_INDENT_LEVEL 

SAVE_INPUT 

SAVE_LINE_# 

SAVE_LITERAL 

SAVE_NEXT_CHAR 

SAVE_OVER_PUNCH 

SAVE_PE 

SAVE_SCOPE 

SAVE__SEVERITY 

SAVE_ 

SAVE  TOKEN 


See  GRAMMAR_FLAGS . 

See  SCAN. 

See  STREAM. 

See  0-W. 

Procedure. 

See  0-W. 

See  STREAM. 

Section  4.4. 

Procedure. 

Array  of  line  numbers  on  which  error 
occurred.. 

Procedure. 

See  STREAM. 

See  STREAM . 

See  SCAN. 

See  0-W. 

See  0-W. 

See  0-W. 

Procedure. 
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SCALAR  COUNT 


Number  of  scalars  invovled  in  a 
product. 


SCALAR_TYPE 

SCALAR? 

SCAN 

SCAN_COUNT 

SCOPE# 

SCOPE#_STACK 

SD_FLAGS 

SDL_OPTION 

SEMI_COLON 

SET_BI_XREF 

SET__CONTEXT 

SET_LABEL_TYPE 

SET_OUTER_REF 

SET_SYT_ENTRIES 

SET_XREF 

SET_XREF_RORS 

SETUP_CALL_ARG 

S ETUP_NO_ARG_FCN 

SETUP__VAC 

SIGNAL_STMT 

SIMULATING 

SINGLE_FLAG 

SLIP  SUBSCRIPT 


INTERMETRiCS  INCORPORATED  • 


See  symbol  table 
Stack  pointer  for 
Procedure . 

See  SCAN. 

Section  4.4. 
Section  4.4. 

See  symbol  table 
See  0-W. 


--  SYT_TYPE. 
product  of  scalars. 


— SYT  FLAGS. 


See  TOKEN. 

Procedure . 

See  SCAN  — CONTEXT. 


Procedure. 


J 

On  if  TABLES  option  was  requested. 
See  symbol  table  --  3YT_FLAGS. 

Procedure. 
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SM_FLAGS 

See  symbol  table  — SYT_FLAGS . 

SMRK_LOC 

Not  used. 

SOME_BCD 

See  SCAN. 

SP 

See  Parser. 

SPACE_FLAGS 

See  0-W. 

SQUEEZING 

See  0-W. 

SREF_OPTION 

On  if  SREF  selected  on  JCL. 

SRN 

See  0-W. 

SRN_COUNT 

See  0-W. 

SRN_COUNT_MARK 

Section  4.4. 

SRN_FLAG 

On  if  something  hanging  for  an 
SRNJCJPDATE. 

SRN_MARK 

Section  4.4. 

SRN_PRESENT 

ON  if  SRN  option  requested  on  JCL. 

SRNJJPDATE 

Procedure. 

STAB 

A buffer  used  for  accumulating  informa 
tion  to  be  written  on  the  statement 

file. 


STAB_BLK 

The  number  of  STAB  blocks  written. 

STAB__CLOSE 

Procedure. 

STAB_ENTER 

Procedure . 

STAB_HDR 

Procedure . 

STAB_INX 

Pointer  to  the  next  available  word  in 
the  STA^  buffer. 

STAB_LAB 

Procedure. 

STAB_MARK 

Section  4.4. 

STAB_SKIP 

The  number  of  extra  words  in  a STAB 
entry  required  by  subsequent  phases. 

STAB_STACK 

Section  4.4. 

STAB  STACKER 

Procedure . 

STAB  STACKTOP 

Section  4.4. 
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STAB_VAR 

STACK_DUMP 

STACK_DUMP_PTR 

STACK_DUMPED 

STACK_PTR 

STACKING_COUNT 

STARRED_DIMS 

STARS 

START_NORMAL_FCN 

START_POINT 

STATE 

STATE_NAME 

STATE_STACK 

STATEMENT_SEVERITY 

STATIC_FLAG 

STMT_END_FLAG 

STMT_LABEL 

I 

STMT_NUM 

STMT_PTR 

STMT_STACK 

STMT_TYPE 

STORAGE_FLAGS 

STREAM 

STRING 

STRING_GT 

STRING_OVERFLOW 

INTERMETRICS  INCORPORATED  • 701 


Procedure. 

Procedure. 

See  0-W. 

See  0-W. 

See  GRAMMAR_FLAGS . 

Section  4.4. 

Section  4.4. 

«*****•' 

Procedure. 

See  MACRO_TEXT  in  SCAN. 

See  Parser. 

See  Parser. 

See  Parser. 

Maximum  error  severity  in  current 
statement. 

See  symbol  table  — SYT_FLAGS. 

See  GRAMMAR_FLAGS . 

See  symbol  table  — SYT_TYPE. 

Statement  number. 

See  GRAMMARJELAGS . 

See  GRAMMAR_FLAGS . 

The  type  of  the  statement  — used  for 
writing  on  statement  file. 

Not  used. 

Procedure. 

Procedure . 

Procedure. 

See  SCAN. 
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STRUG  DIM 


Section  4.4 


STRUC_PTR 

STRUC_SIZE 

STRUC_TOKEN 

STRUCT_FUNC_TOKEN 

STRUC_TEMPLATE 

STRUCTURE_COMPARE 

STRUCTUREJFCN 

STRUCTURE_SUB_COUNT 

STRUCTURE_WORD 

SUB_COUNT 

SUB_SEEN 

i; 

i-  , SUBHEADING 

SUBSCRIPT_LEVEL 

SUPPRESS_THIS_TOKEN_ONLY 

SYNTHESIZE 

SYSIN_COMPRESSED 

SYT_ADDR 

SYT_ARRAY 

SYT_CLASS 

SYT_DUMP 

SYT_FLAGS 

SYT_HASHLINK 

I SYT_HASHSTART 

SYT_INDEX 
SYT  LINKl 

) 

r iNTERMETRICS  INCORPORATED  • 701  CONCORD 
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Section  4.4. 

The  size  of  the  structure  whose  template 
is  being  declared. 

See  TOKEN. 

See  TOKEN. 

See  TOKEN. 

Procedure . 

Procedure . 

Section  4.4. 

See  TOKEN. 

Section  4.4. 

Section  4.4. 

A constant  character  string. 

See  Parser. 

See  PRINTING_ENABLED  in  SCAN. 

Procedure . 

On  if  input  is  in  compressed  format. 

See  symbol  table. 

See  symbol  table. 

See  symbol  table. 

Procedure. 

See  symbol  table. 

See  symbol  table. 

See  symbol  table. 

See  SCAN. 

See  symbol  table. 
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4, 


SYT  LINK2 


SYT_LOCK# 

SYT_NAME 

SYT_NEST 

SYT_PTR 

SYT_SCOPE 

SYT_SORT 

SYT_TYPE 

SYT_XREF . 

SYTSIZE 

T_INDEX 

TASK_LABEL 

TASK_MODE 

TEMP 

TEMP_INDEX 

TEMP_STRING 

TEMP_SYN 

TEMPL_NAME 

TEMPLATE_GLASS 

TEMPLATE_IMPLIED 

TEMPORARY 

TEMPORARY_FLAG 

TEMP  ORAR  Y_IMPL  I ED 

TEMPI 

TEMP  2 

TEMP  3 

TERMP 


rSee  symbol  table. 


See  MACRO_TEXT  in  SCAN. 

See  symbol  table  — SYT_TYPE. 
Section  4.4. 

Temporary . 

Local  variable  of  PARM_FOUND. 
See  SCAN. 

Temporary . 

See  symbol  table  — SYT_TYPE. 
See  symbol  table  — SYTjCLASS . 
See  SCAN  — CONTEXT. 

See  TOKEN. 

See  symbol  table  — SYT_FLAG. 
See  SCAN. 

Temporary. 

Temporary. 

Temporary . 

Temporary. 
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r ' TEXT  LIMIT 

THE_BEGINNING 

TIE_XREF 

TOGGLE 

TOKEN 


ARITH_FUNC_TOKEN 

ARITH_TOKEN 

BIT_FUNC_TOKEN 

BIT_TOKEN 

CHAR__FUNC_TOKEN 

GHARJEOKEN 

i'  CHARACTER_STRING 

COMMA 

CONCATENATE 

CPD_NUMBER 

CROSSJTOKEN 

DECLARE_TOKEN 

DO_TOKEN 

DOLLAR 

DOT_TOKEN 

EOFILE 

EVENTJTOKEN 

EXPONENT 

r"  EXPONENTIATE 


See  STREAM. 

Procedure. 

Procedure. 

Literally  COMM (6). 

Type  of  current  token. 

Value  of  -1  indicates  REPLACE  name; 
otherwise : 

Functioning  returning  an  arithmetic 
value. 

Arithmetic  value  such  as  matrix,  vector, 
scalar,  integer. 

Functioning  returning  a bit  string  value. 
Bit  string  value. 

Function  returning  a character  string 
value. 

Character  string  value. 

Character  literal. 

II  II 
/ • 

Concatenation  operator  " | | " . 

Invalid  numeric  token. 

Cross  product  operator  (*) . 

Keyword  DECLARE . 

Keyword  DO. 


Dot  product  operator  ( . ) . 
Endof  file  marker  (X"FE" ) . 
Keyword  EVENT. 

II  A * II 
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ID_TOK^iN 

lab_token 

LABEL_DEFINITION 

LEFT_PAREN 

LEVEL 

no_arg_arith_fung 
N0_ARG_B I T_FUNG 
no_arg_gkar_fung 
NO  ARG  STRUCT_FUNG 


Identifier  (parameter 

macro  names)  - also  used  for  undefined 
names  in  error . 

Label  value. 


" (". 

Structure  declaration  level  number. 
Function  with  no  arguments  following. 
Function  with  no  arguments  following. 
Function  with  no  arguments  following. 
Function  with  no  arguments  following. 


NUMBER 

Numeric  literal. 

pergent_magro 

%macro  name. 

REPLAGE_TEXT 

The  <text>  part  of  a 

REPLAGE_TOKEN 

Keyword  REPLAGE. 

RT_PAREN 

" ) " . 

SEMI_COLON 

II  • II 
r 

STRUG  TOKEN 

structure  value. 

STRUGT_FUNG_TOKEN 

Function  returning  a 

STRUGT  TEMPLATE 

Not  used. 

STHlTGTURE_WORD 

Not  used. 

TEMPORARY 

Keyword  TEMPORARY. 

TOKEN_FLAGS 

See  GRAMMAR_FLAGS . 

TOKEN  FLAGS_UNFLO 

TOKEN  WAS_GOMMA 

TOO  MANY  ERRORS 

ON  if  error  stack  ov 

TOO  MANY_LINES 

See  STREAM, 

TOP  OF  PARM_STAGK 

See  SGAN . 
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TPL_FLAG 

On  if  XO  option  request  in  JCL. 

TPL_FUNC_CLASS 

See  symbol  table  — SYT  CLASS . 

TPL_LAB_CLASS 

See  symbol  table  — SYT  CLASS. 

TPL_LRECL 

Line  length  for  template  = LRECL+1. 

TPL_NAME 

The  name  of  the  current  template  being 
processed.  : 

TPL_VERSION 

1 

The  template  version  number. 

TRANS_IN 

See  SCAN. 

TRANS_OUT 

See  0-W. 

TX 

See  SCAN. 

TYPE 

Section  4.4. 

UNARRAYED  INTEGER 

Procedure. 

UNARRAYED_SCALAR 

Procedure. 

UNARRAYED_S  IMPLE 

Procedure . 

} 

UNBRANCHABLE 

Procedure 

UNSPEC 

Procedure. 

UNSPEC_LABEL 

See  symbol  table  — SYT  TYPE. 

UPDATE_BLOCK_CHECK 

Procedure. 

UPDATE_BLOCK_LEVEL 

Section  4.4. 

UPDATE_MODE 

Section  4.4. 

V_INDEX 

See  procedure  SCAN  — identifier. 

VAL_P 

Section  4.4. 

VALID_00_CHAR 

See  SCAN. 

VALID_00_OP 

See  SCAN. 

VALUE 

See  SCAN. 

VAR 

Section  4.4. 

VAR_ARRAYNESS 

Section  4.4. 

VAR_CLASS 

See  symbol  table  — SYT  CLASS. 
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VAR_LENGTH 

VBAR 

VEC_LENGTH 

VEC_LENGTH_LIM 

VEC_TYPE 

VECTOR_COMPARE 

VECTOR_COUNT 

VECTORP 

VERSION 

VERSION_LEVEL 

VOCAB 

VOCAB_INDEX 

WAIT 

WAS_HERE 

XADLP 

HAFOR 

XAST 

XASZ 

XBAND 

HBCAT 

HBEQU 

XBFNC 

XBINT 

XBNOT 

XBOR 

XBRA 

XBTOB 


See  symbol  table  — identical  to  SYT_DIMS. 
See  0-W. 

Section  4.4. 

Section  4.4. 

See  symbol  table  — SYT_TyPE. 

Procedure. 

The  number  of  vectors  involved  in  a 
product . 

Stack  pointer  for  current  product  of 
vectors . 

Version  of  the  compiler. 

Fractional  version  of  the  compiler. 

See  SCAN. 

See  procedure  SCAN  — identifiers. 

See  SCAN. 

See  0-W. 

HALMAT  Codes. 

HALMAT  Codes. 

Form. 

Form. 


HALMAT  Codes, 
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hitman 


XBTOC 


XBTOI 

XBTOQ 

XBTOS 

XBTRU 

XCANC 

XCAND 

XCCAT  " HALMAT  Codes. 

XCDEF 

XCEQU 

XCFOR 


XCLBI. 


XCLOS 

XCNOT 

XCO__D 

XCO_N 

XCOR 

XCSZ 

XCTST 

XDCAS 

XDFOR 

XDLPE 

XDSMP 

XDSMP 

XDSUB 

XDTST 


Code  Optimizer  Bits. 
Code  Optimizer  Bits. 
HALMAT  Codes. 

Form . . 


HALMAT  Codes. 
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XECAS 


XEDCL 

XEFOR 

XEINT 

XELRI 

XERON 

XERSE 

XESMP 

XETRI 

XETST 

XFXTN 

HFASN 

XFBRA 

XFCAL 

XFDEF 

XFILE 

XICLS 

XIDEF 

XIDLP 

XIEQU 

XIFDH 

XIMD 


HalmAT  Codes. 


Form. 
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XIMRK 


HALMAT  Code. 


XINL 

XITOS 

XLBL 

XLFNC 

XLIT 

XMADD 

XMDEF 

XMEQU 

XMINV 

XMMPR 

XMNEG 

XMSDV 

XMSHP 

XMSPR 

XMSUB 

XMTOM 

XMTRA 

XMVPR 

XNASN 

XNEQU 

XNINT 

XNOP 

XOFF 


Form. 

HALMAT  Code. 
HALMAT  Codes. 
HALMAT  Codes. 
Form. 


V HALMAT  Codes 


Form. 
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XPCAL 

XPDEF 

XPMAR 

XPMHD 

XPMIN 

XPRIO 

XREAD 

XREF 

XREF  ASSIGN 


VHALMAT  Codes. 


XREF_FOLL 

XREF_INDEX 

XREF__LIM 

XREFjyiASK 

XREF_REF 

XREF_SUBSCR 

XRTRN 

HSADD 

HSCHD 

XSEQU 

XSEXP 

XSFAR 

XSFNO 

XSFST 

XSGNL 

XSIEX 

XSLRI 


T See  symbol  table  — SYT_XREF . 


1 


r HALMAT  Codes. 
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XSMRK 

XSPEX 

XSSPR 

XSSUB 

XSTOI 

XSTRI 

XSYT 

XTASN 

XTDCL 

HTDEF 

XTEQU 

XTERM 

XTINT 

XTSUB 

XUDEF 

XVAC 

XVCRS 

XVDOT 

XVEQU 

XVMPR 

XVSPR 

XWPR 

XWAIT 

XXASN 

XXPT 

XXREC 

XXXAR 


HALMAT  Codes. 


Form. 


HALMAT  Codes. 


Form, 


HALMAT  Codes. 


Form. 

HALMAT  Codes. 


HALMAT  Codes . 

4-233 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


f I 


‘ r-  ^ -T.-I  niiriW.  -TMfrl  i^i 


XXXND 


HALMAT  Codes 


XXXST 

XI 

X2 

X32 

X4 

X70 

X8 


HALMAT  Codes. 


V n blanks . 


^ INK 
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4.5.2  Index  to  Procedure  Desdriptions 


851000 

ADD_AND_SUBTRACT 

4.4.4 

843600 

ARITH_LITERAL 

4.4.4 

920000 

ARITH_SHAPER_SUB 

Sec . 4.4.5 

Production 

22 

869700 

ARITH_TO_CHAR 

Sec.  4.4.5 

Production 

133 

1095700 

ASSOCIATE 

4.4.4 

940400 

AST_STAGKER 

Sec.  4.4.4 

Production 

219 

949300 

ATTACH_SUB_ARRAY 

Sec . 4.4.4 

Production 

219 

942800 

ATTACH_SUB_COMPONENT 

Sec.  4.4.4 

Production 

219 

953100 

ATTACH_SUB_STRUCTURE 

Sec.  4.4.4 

Production 

219 

955700 

• ATTACH_SUBSCRIPT 

Sec.  4.4.4 

Production 

219 

845100 

BIT_LITERAL 

Sec . 4.4.5 

Production 

98 

266100 

BLANK 

X 

535500 

BLOCK_SUMMARY 

Sec . 4.4.7 

Production 

28  9 

967400 

CALL_SCAN 

4.2. 1 

289600 

CHAR_INDEX 

X 

846200 

CHAR_LITERAL 

X 

819800 

CHECK_ARRAYNESS 

X 

824900 

CHECK_ASS IGN_CONTEXT 

Sec . 4.4.4 

Production 

193 

1029100 

CHECK_CONFLICTS 

Sec.  4.4.3 

Production 

357 

1023800 

CHECK_CONSISTENCY 

Sec.  4.4.3 

Production 

3 57 

1040900 

CHEGK_EVENT_CONFLICTS 

Sec . 4.4.3 

Production 

357 

823300 

CHECK_EVENT_EXP 

Sec.  4.4.6 

Proudction 

448 

1080500 

C HEC K_IMPL IC IT_T 

X 

882300 

CHECK_NAMING 

■ Sec . 4.4.4 

Production 

199 

1036400 

CHECK_STRUC_CONFLICTS 

Sec.  ‘4.4.4 

Production 

357 

922700 

CHECK_SUBSCRIPT 

Sec.  4.4.4 

Production 

219 

1529700 

CHECK_TOKEN 

4.1.2 

1022700 

COMPARE 

X 

1542300 

COMPILATION_LOOP 

4.1.2 

53300 

COMPRESS_OUTER_REF 

4.2.1 

879300 

COPINESS 

Sec . 4.4.5 

Production 

113 
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427200 

DECOMPRESS 

X 

270400 

DESCORE 

X 

1093300 

DISCONNECT 

X 

1083200 

DUMP IT 

X 

863300 

EMIT_ARRAYNESS 

X 

764600 

EMITEXTERNAL 

4.1.2 

812100 

EMIT_PUSH_DO 

Sec.  4.4.6 

Production 

159 

809600 

EMIT_SMRK 

X 

926300 

EMIT_SUBSCRIPT 

Sec.  4.4.4 

Production 

219 

964900 

END_ANY_FCN 

Sec.  4.4.5 

993300 

END_SUBBIT_FCN 

Similar  to 

END_ANY_FCN 

556200 

ENTER 

4.2.1 

1043400 

ENTER_DIMS 

See  SET_SYT_ENTRIES 

549400 

ENTER_XREF 

4.2.1 

281800 

ERROR 

X 

827200 

ERROR_SUB 

Sec.  4.4.6 

Production 

72 

1554300 

ERROR_SUMMARY 

X 

287000 

FLOATING 

X 

871100 

GET_ARRAYNESS 

Sec.  4.4.4 

Production 

219 

901900 

GET_FCN_PARM 

Sec . 4.4.5 

Production 

178 

997400 

GET_ICQ 

See  data  description  IC_LINE 

175900 

GET_LITERAL 

4.2.1 

801100 

HALMAT 

4.4.8 

803400 

HALMAT_BACKUP 

4.4.8 

790000 

HALMAT_BLAB 

00 

. 

. 

807200 

HALMAT_FIX_PIP# 

4.4.8 

808800 

HALMAT_F IX_PIPTAGS 

4.4.8 

80800 

HALMAT_F IX_POPTAG 

4U . 8 

1015200 

HALMAT_INIT_CONST 

4.4.3 

798700 

HALMAT_OUT 

Sec.  4.4.7 

Production 

1 

80500 

HALMAT_PIP 

4. 4..  8 
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'«Ur 


80400 

HALMAT_POP 

4.4.8 

794100 

HALMAT_RELOCATE 

4.4.8 

805900 

HALMAT_TUPLE 

4.4.8 

802800 

HALMAT_XNOP 

X. 

288200 

HASH 

X 

272400 

HEX 

X 

1013200 

HOW_TO_IN I T_ARGS 

4.4.3 

273900 

I_FORMAT 

X 

1000800 

ICQ_ARRAY# 

X 

1002000 

ICQ_ARRAYNE S S_OUTPUT 

4.4.3 

1003900 

ICQ_CHECK_TYPE 

4.4.3 

1007200 

ICQ_OUTPUT 

4.4.3 

999100 

ICQ_TERM# 

X 

557900 

IDENTIFY 

4.2.1 

1055200 

INITIALIZATION 

4.4.8 

316800 

INTERPRET_ACROSS_FILE 

4.2,2 

861700 

lORS 

Sec . 4. 

878100 

KILL_NAME 

Sec.  4 

815100 

LABEL_MATCH 

Sec.  4 

269600 

LEFT_PAD 

X 

663800 

LIT_DUMP 

X 

849500 

LIT_RESULT_TYPE 

4.4.4 

662300 

MACRO_TEXTJDUMP 

X 

284400 

MAKE_FIXED_LIT 

X 

847500 

MATCH_ARITH 

4.4.4 

887800 

MATC H_ARRAYNES S 

Sec.  4 . 

834100 

MATCH_SIMPLES 

4.4.4 

819200 

MATRI X_COMPARE 

4.4 

262300 

MAX  • 

X 

261700 

MIN 

X 

853500 

MULTIPLY_SYNTHESIZE 

Sec.  4. 

881300 

NAME_ARRAYNESS 

Sec . 4 . 

873400 

NAME_COMPARE 

Sec.  4. 

434500 

NEXT_RECORD 

4.2.2 

436200 

ORDER_OK 

4.2.2 

278900 

OUTPUT_GROUP 

4.2.2 

291000 

OUTPUTJWRITER 

4.3.3 

4.4  Production  229 
.4.6  Production  53 
. 4. 6‘ Production  42 


4.4  Production  219 


"■  ’i 


4.5  Production  11 
4.5  Production  113 
4.5  Production  113 
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268700 

PAD 

X 

574100 

PREP_LITERAL 

4.2.1 

781700 

PRINT_DATE_AND_TIME 

X 

1555900 

PRINT_SUMI4ARY 

Close  files 

781000 

PRINT_TIME 

X 

277200 

PRINT 2 

X 

824100 

PROCESS_CHECK 

Sec.  4.4.6  Production  432 

841500 

PUSH_FCN_STACK 

4.4.5 

814100 

PUSH_INDIRECT 

X 

835400 

READ_ALL_TYPE 

Sec.  4.4.6  Production  278 

1534500 

RECOVER 

4;1.2 

932600 

REDUCE_SUBSCRIPT 

Sec.  4.4.4  Production  219 

866500 

RESET_ARRAYNESS 

865000 

' SAVE_ARRAYNESS 

See  data  definition  of  VAR  ARRAYNESS 
Sec.  4.4 

280600 

SAVE_DUMP 

4.1.2 

274900 

SAVE_INPUT 

4.2.2 

569800 

SAVE_LITERAL 

4.2.1 

399700 

SAVE_TOKEN 

4.2.1 

577700 

SCAN 

,4.2.1. , . 

551300 

SET_BI_XREP 

' ■■4..,4.5  ' . , ■ ' 

1089200 

SET_LABEL_TYPE 

4.4.2  (Production  307) 

547800 

SET_OUTER_REF 

4.2.1 

1047500 

SET_SYT_ENTRIES 

4.4.3 

552300 

SET_XREF 

4.2.1 

554400 

SET_XREF_RORS 

X 

904100 

SETUP_CALL_ARG 

Sec.  4.4.5  Production  178 

891000 

SETUP_NO_ARG_FCN 

4.4.5 

817500 

SETUP_VAC 

X 

941900 

SLIP_SUBSCRIPT 

Sec.  4.4.4  Production  219 

777100 

SRN_UPDATE 

X ■ 

786900 

STAB_CLOSE 

X 

782400 

STAB_ENTER 

X 

787600 

STAB_HDR 

X 

786200 

STAB__LAB 

4.4.2  (Production  304) 

783700 

STAB  STACKER 

X 

4-238 

INTERMETRICS  INCORPORATED  ■ 701  CONCORD  AVENUE  • CAMBRIDGE.  MASSACHUSETTS  02138  • (617)  661-1840 


784700 

STAB_VAR 

1087300 

STACK_DUMP 

896300 

START_NORMAL_FCN 

440700 

STREAM 

264700 

STRING 

617400 

STRING_GT 

837500 

STRUCTURE_COMPARE 

890200 

STRUCTURE_FCN 

1101600 

SYNTHESIZE 

618600 

SYT_DUMP 

660300 

TIE_XREF 

820600 

UNARRAYED_INTEGER 

822600 

UNARRAYED_SCALAR 

821800 

UNARRAYED  SIMPLE 

816300 

UNBRANCHABLE 

265400 

UNSPEC 

842800 

UPDATE_BLOCK_CHECK 

818500 

VECTOR  COMPARE 

X 

4.1.2 

4.4.5 

4.2.2 
X 

X 

4.4.5  Production  112 

4.4.5 

4.4 

Print  a formatted  dump  of  the 
symbol  table  with  all  cross 
references 

Sec.  4.4.7  Production  289 

X 

X 

Sec.  4.4.6  Production  163 
Sec.  4.4.6  Production  33 
X 

4.4.5 

4.4 


jr 
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5.0  PHASE  II 


5.1  Data  Structures 


5.1.1  Block  Definition  Table 

A group  of  arrays  of  length  PROC  # . These  arrays  ^ 
contain  information  about  all  CSECTs  in  a HAL/S  compilation 
unit.  There  are  CSECTs  for  programs,  compools,  tasks,  pro- 
cedures, functions,  update  blocks,  and  external  templates, 
as  well  as  compiler  created  CSECTs.  Each  CSECT  is  given  a 
number  which  also  serves  as  its  ESDID.  For  symbol  table  entries, 
this  number  corresponds  to  the  entry's  SYT_SCOPE. 

Not  all  the  arrays  are  relevant  to  each  type  of 
CSECT.  The  possible  information  associated  with  each 
CSECT  consists  of; 

CALL#  ' Value  Block  Type 

Procedure,  function,  task 
Program 
Compool 

Exclusive  or  update  blocks 

ERRALL 

The  number  of  error  groups  for  which  ON  ERROR  •statements 
appear  for  all  members. 

ERRALLGRP 

1 if  ON  ERROR  control  for  all  errors  is  on  at  some 
point  during  the  block,  0 otherwise. 

ERRPTR 

A pointer  to  the  first  ERR_STACK  entry  associated 
with  the  block.  ERRPTR (0)  is  the  total  number  of  errors 
in  the  error  stack. 

ERRSEG 

1)  The  displacement  of  the  beginning  of  the  error 
vector  within  the  block's  run  time  stack  frame 
(i.e.  the  maximum  tejaporary  storage  excluding  the 

error  vector) . 

2)  During  object  code  generation,  this  array  is 
used  to  store  the  beginning  address  of  the  last 
HAL/S  source  statement  processed  within  a block. 
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0 

1 

2 

4 


INDEXNEST 


The  ESDID  number  of  the  block  enclosing  a given 
block.  INDEXNEST  (0)  is  the  currently  active  ^sect 
(either  code  or  data);  that  is,  it  is  the 
of  the  location  counter.  Most  of  the  time  the  i^®st  o 
the  arrays  are  accessed  using  INDEXNEST  as  the  subscript. 

LASTBASE 

The  last  base  register  used  for  addresssing  data 
declared  in  a block. 

LASTLABEL 

Pointer  to  the  statement  number  of  the 
set  within  a block.  This  is  the  beginning  of  a 
list  of  all  the  labels  set  within  a block  and  connecte 

by  LOCATION_LINK. 


LOCCTR 


The  location  counter  of  each  CSECT. 


MAXERR 

The  number  of  errors  for  which  ON  ERROR  statements 
exist  in  a block. 


MAXTEMP 

The  maximum  temporary  storage  required  by  a CSECT 
in  the  runtime  stack. 

NARGS 

The  number  of  arguments  of  a procedure,  function. 
ORIGIN 

A value  used  to  provide  an  origin  for  addresses 
within  a CSECT. 

PROC_LEVEL 

A pointer  to  a block’s  symbol  table  entry. 
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PROC  LINK  (scope  #) 


Pointer  to  the  symbol  table  ent^  ^^furriist 

declared  in  scope  *.  This  variable  is  ““<3  ^o  =et  up  a 
of  all  variables  within  the  block  (see  SYT_LEVEL) . 

PTRARG 

IS  1 if  register  2 (FC  only)  has  been  reserved  for 
something  in  the  calling  sequence, 

remote_level 

The  ESDID  of  a CSECT  used  for  storing  REMOTE  variables 
declared  in  the  CSECT,  if  the  CSECT  is  an  EXTERNAL  template. 

RIGID_BLOCK 

Literally  INDEXNEST.  Is  TRUE  if  EXTERNAL  template  or  COMPOOL 
compilation  unit  is  RIGID. 

STACKSPACE 

During  object  code  generation,  this  is  the  ending 
address  of  the  last  HAL/S  source  statement  passed  within 

the  block. 

WORKSEG 

The  displacement  of  the  beginning  of  the  area  used 
for  storing  intermediate  results  (i.e.  the  amount  of 
temporary  storage  required  for  the  block  s register 
save  area,  error  vector,  parameters,  temporary  variables, 
and  AUTOMATIC  variables  ) . 

While  processing  a block,  additional  information  for 
ON  ERROR  statements  is  kept  in  two  additional  array 
dimension  ARG_STACK# . 

ERR  DISP 


ERR  DISP  (I)  is  the  displacement  (relative 
of  error“vector)  of  the  error  described  in  ERR_STACK ( I ) . 

ERR  STACK (I) 


Is  an  entry  of  the  form: 


errror  number 


error  group 


Notice  that  ERRALL  is  the  number  of  distinct  error  number  * 
entries  already  appearing  in  ERRSTACK  for  the  current  block. 
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5.1.2  CALL  STACK 


A group  of  arrays  of  length  CALL_LEVEL# 
containing  information  necessary  for  setting  up  calls  to 
procedures,  functions,  I/O  routines,  and  shaping  functions. 

For  every  nest  level  of  invocation  at  any  time  during 
compilation,  the  arrays  specify  the  following  information. 

ARC  COUNTER 


Initially  the  number  of  arguments  to  a procedure, 
function,  or  I/O  routine.  Decremented  after  each  HALMAT 
XXAR  instruction. 

ARC  POINTER 


1)  Initially  points  to  the  symbol  table  entry  of 
the  first  argument  of  a procedure,  function, 
or  I/O  routine.  Incremented  after  each  HALMAT 
XXAR  statement. 

2)  For  integer  and  scalar  shaping  functions,  it  is 
a pointer  to  the  first  free  entry  in  SF_RANGE. 

CALL_CONTEXT 

The  context  of  the  call: 

1 I/O  routine 

2 Shaping  function,  non-HAL  function  or 

procedure,  other 

4 Function  or  procedure 

SAVE  ARG  STACK  PTR 


The  value  of  ARG_STACK_PTR  at  the  beginning  of 
the  invocation. 

SAVE  CALL  LEVEL 


The  value  of  CALL__LEVEL  at  the  beginning  of  the 
invocation. 
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5.1.3  INDIRECT  STACK 


The  code  generation  phase  of  a compiler  requires  a place 
to  keep  descriptors  for  the  items  it  is  manipulating.  One 
candidate  is  the  symbol  table.  This  choice  has  the  disadvantage 
of  being  very  space  inefficient.  Specifically, 

- it  requires  a symbol  table  entry  for  every  temporary, 
even  though  temporaries  are  of  interest  for  a very 
short  time 

- it  requires  the  addition  of  many  more  fields  to  every 
entry  in  the  symbol  table  even  though  these  fields 
hold  information  of  a transient  nature  (e.g.  the 
register  containing  the  variable) . 

Because  of  these  considerations,  a far  better  choice  is  to  set 
up  an  auxiliary,  transient,  expanded  symbol  table.  There  is  one 
descriptor  in  this  table  for  each  item  currently  of  interest. 

Since  the  number  of  items  is  small,  the  amount  of  information 
per  item  can  be  large. 

Many  compilers  use  a stack  mechanism  for  allocating  space 
for  these  descriptors  (thus  our  name  "INDIRECT  STACK") . As 
the  code  generation  process  becomes  more  sophisticated,  a 
i ; stack  mechanism  becomes  less  and  less  appropriate.  Thus,  our 

"Stack"  is  actually  an  array  with  a free  list  (STACK_PTR) . Pointers 
to  this  array  are  kept  in  immediately  active  locations  (e.g. 
the  operands  of  the  current  instruction)  and  in  the  HALMAT 
where  they  overwrite  the  instruction  used  to  generate  them. 

The  indirect  stack  is  a group  of  parallel  arrays  of 
length  STACK  SIZE. 
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BACKUP  REG 


This  is  the  same  as  the  base  register  associated  with 
an  entry  except  in  certain  cases  where  it  is  used  to  save 
the  base  register.  This  is  done  because  when  a register  is 
checkpointed,  a pointer  to  its  contents  in  temporary  storage 
is  kept,  but  the  number  of  the  register  which  held  the 
contents  is  forgotten.  BACKUP_REG  can  be  used  to  retain  this 
number.  This  is  necessary  in  code  generation  for  DO  FOR  loops 
where  a checkpointed  loop  index  must  be  reloaded  into  the  name 
register  it  originally  occupied. 

BASE 

The  base  register  associated  with  the  entry.  If  BASE  < 0, 
it  is  a virtual  register  which  must  be  assigned  to  a hardware 
register  and  loaded  before  use. 


COLUMN 

The  significant  of  COLUMN  depends  on  the  entry's  TYPE. 


1)  MATRIX:  The  number  of  columns. 

2)  VECTOR:  The  number  of  components. 

3)  BIT:  A pointer  to  an  indirect  stack  entry 

representing  the  position  of  the  first  bit  of 
a bit  string  in  a location  in  core.  This  is 
necessary  because  of  dense  storage  and  subscripting. 


4)  CHARACTER:  A pointer  to  an  Indirect  Stack  entry 

representing  the  position  of  the  first  character 
in  a string  referenced  by  a subscript. 

const 

1)  A constant  term  that  must  be  added  to  the  value  of 
an  entry.  This  is  used  to  keep  track  of  constant 
terms  in  mixed  mode  expressions,  and  allows  stack 
entries  for  constants  to  be  dropped  while  avoiding 
incorporating  the  constant  into  the  expression  until 
necessary,  thus  permitting  further  constant  folding. 

2)  For  type  RELATIONAL  entries,  a Phase  2 generated 
label  for  the  location  immediately  after  the  test. 

3)  Used  to  chain  together  entries  of  the  same  SELECTYPE 
in  multiple  assignment  statements. 

COPT 

Non-zero  for  a common  sub-expression. 
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COPY 

The  number  of  dimensions  of  arrayness  of  an  entry,  or 
the  number  of  copies  of  a structure.  ' Notice  that  this  may 
differ  from  DOCOPY  because  an  arrayed  expression  can  have 
simple  variables  in  it  (DOCOPY  > COPY)  or  an  ASSIGN  parameter 
can  be  an  array  (COPY  > DOCOPY) . 

DEL 

1)  WORK:  If  the  entry  represents  the  contents  of  a 
register  saved  in  temporary  storage,  DEL  is  the 
number  of  entries  using  the  register . 

2)  STRUCTURE:  A pointer  to  the  symbol  table  entry 

for  its  template. 

3)  CHAR:  A pointer  to  an  indirect  stack  entry  for 

the  position  of  the  last  character  in  a character 
string  subscript  reference. 

4)  MATRIX:  An  indexing  value  used  to  locate  the  non- 

ad  jacent  entries  in  a matrix'  partition.  The  matrix 
elements  are  stored  as  a linear  array,  row  by  row. 

In  a partition,  certain  elements  are  picked  out 

of  each  row.  Adding  DEL  to  the  last  element _ picked 
out  in  a row  will  give  the  location  of  the  first 
element  to  be  picked  out  in  the  next  row. 

5)  VECTOR:  An  indexing  value  to  locate  the  non-ad jacent 

entries  in  a column  VECTOR. 

DISP 

A displacement  used  together  with  BASE  for  addressing  an 
indirect  stack  entry. 

FORM 

1)  The  form  of  the  entry: 


0 18  LBL 

2.  SYM  FLNO 

2 AIDX  - 1-dimensional  subscript  20  STNO 

index  22  EXTS 

3 VAC  30  AIDX 

5 LIT 

6 IMD  3 1 WORK 

7 CSYM 
10  OFFSET 


22  EXTSYM 

30  AIDX2  - 2-dimensional 

subscript  index 

31  WORK  - stored  VAC 


This  value  helps  determine  the  significance  of  the 
other  fields . 


INTERMETRICS  INCORPORATED  • 701  CONOORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


2) 


In  some  special  cases  immediately  before  calling 
code  emitting  routines,  such  as  EMITOP,  FORM  is 
set  to  an  intermediate  output  code  qualifier. 
This  is  done  in  SAVE_LITERAL  and  ARITH_BY_MODE . 

INX 

The  index  register  associated  with  an  indirect  stack 
entry.  If  the  register  has  been  checkpointed,  it  is  a 
negative  pointer  to  an  indirect  stack  entry  pointing  to  the 
contents  of  the  register  in  temporary  storage. 

INX  CON 


1)  A constant  indexing  term  associated  with  the 
entry . 

2)  For  formal  parameters,  this  is  the  amount  of 
storage  necessary  for  passing  * arrayness  and 
character  size  information. 

3)  For  EXTSYM's  that  are  tasks,  programs,  or 
compools,  it  is  the  offset  in'PCEBASE  of 
addressing  information. 


INX  MUL 


When  dealing  with  multi-dimensioned  arrays,  an  attempt  is 
made  to  for stall  generating  the  code  to  do  the  multiply  so 
that  a comparison  with  existing  registers  can  be  made.  INX_MUL 
is  the  accumulated  constant  multiplier. 

INX  SHIFT 


When  describing  a variable  used  as  a subscript,  there  are 
two  interesting  values : 

1)  The  value  of  the  variable. 

2)  The  appropriate  offset. 

Value  2 takes  into  account  the  width  of  the  data  item  and 
is  a multiple  of  value  1.  Since  this  multiple  is  always  a power 
of  two,  the  multiplication  can  be  done  by  shifting.  INX_SHIFT 
is  the  required  shift. 


REPRODUCffilLITY  OF  1^0 
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LOC 

The  significance  of  LOC  depends  on  the  indirect  stack 
entry's  form: 

1)  WORK;  Pointer  to  a temporary  storage  entry. 

2)  SYM  or  LBL;  Pointer  to  the  symbol  table  entry 
represented  by  the  indirect  stack  entry  except  for 
structure  nodes  where  it  is  a pointer  to  the  symbol 
table  entry  for  the  structure. 

3)  LIT:  Pointer  to  associated  Literal  Table  entry  or 

-1  if  literal  is  not  in  table. 

4)  FLNO;  Phase  2 generated  label  number. 

5)  0;  The  actual  value  of  the  entry. 

6)  AIDX;  Pointer  to  the  indirect  stack  entry  set 
up  as  an  index  variable  for  a do  loop  to  process 
a subscript. 

7)  AIDX2;  Pointer  to  the  indirect  stack  entry  set  up 

as  an  index  variable  for  a do  loop  to  process  the  second 
subscript  in  a two-dimensional  reference. 

8)  EXTSYM:  For  EXTERNAL  templates  and . procedures , 

the  CSECT  number.  For  tasks  and  programs,  the  PCEBASE. 


a I 


■i 

j 


LOC  2 


ifc. 

j|r 


1)  SYM;  A pointer  to  the  corresponding  symbol  table  entry. 

2)  AIDX:  Pointer  to  the  indirect  stack  entry  set  up  as 

an  index  variable  for  the  do  loop  to  process  the  second 
subscript  in  a two-dimensional  reference. 


REG 


If  TYPE (entry)  = RELATIONAL  then  REG (entry)  = condition  code; 
otherwise,  REG (entry)  is  the  register  containing  the  value  of  the 
entry. 


ROW 


Meaning  depends  on  the  entry's  type: 


1) 

Matrix;  Size  of  the  rows. 

2) 

Bit  or  Character; 

The 

length  of 

the  string. 

3) 

Integer  or  Scalar : 

1. 

4) 

Structure:  EXTENT 

of 

its  symbol 

table  entry. 

5) 

Vector:  1. 
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SIZE 


LITERALLY  'ROW'. 

STACK_MAX 

The  maximum  size  of  the  indirect  stack. 
STACK  PTR 


Used  for  chaining  together  free  indirect  stack  entries. 
Initially,  each  entry  points  to  the  next  entry  on  the  stack. 

As  entries  are  allocated,  their  STACK_PTR  becomes  . 

STACK  PTR(O)  points  to  the  first  free  entry,  and  for  free  entries, 
STACK”ptr  points  to  the  next  free  entry. 

STRUCT 

0 - just  an  array 

1 - structure  with  copies 

If  1,  the  value  is  set  to  0 after  indexing  is  set  up 
for  the  structure. 
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STRUCT  CON 


A constant  term  used  for  addressing  the  terminal 
nodes  of  a structure.  This  term  is  later  incorporated 
into  INXjCON. 

STRUCT  INX 


A value  used  for  determining  how  to  compute  index 
values  for  subscripted  arrayed  variables. 


STRUCT_INX 

2 

4 

5 


TYPE 


Description 

Array  reference  unconnected  with  a 
subscripted  structure. 

Array  reference  for  a node  of  an 
arrayed  structure  with  one  copy 
after  subscripting. 

Array  reference  for  a node  of  an 
arrayed  structure  or  a subscripted 
structure  where  the  subscript  picks 
out  several  copies. 


The  operand  type  of  an  indirect  stack  entry.  If 
bit  3 is  one,  then  double  precision  is  specified;  if  zero, 
single  precision.  The  numerical  values  for  TYPE  can  be  found  in 
the  table  "operand  types  and  properites"  in  the  HALMAT  section. 

VAL 


The  meaning  of  VAL  depends  on  the  indirect  stack  entry 

form. 

1)  LIT;  The  literal's  value.  For  character  literals 
this  is  the  LITjCHAR  pointer  copied  out  of  the  LIT2 
table. 

2)  STNO,  LBL,  FLNO:  The  statement  number. 

3)  OFFSET;  The  value  of  the  offset.  . 

4)  VAC;  If  the  entry  is  used  for  emitting  shaping 
function  repeats,  this  is  a register  used  in  the 
process. 

5)  0;  The  statement  number  of  a label  used  for 
generating  a "failure"  conditional  branch. 
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6)  WORK:  If  the  entry  represents  temporary  storage 

for  an  integer  or  scalar  shaping  function,  this 
is  a pointer  to  the  first  entry  in  SF_RANGE  con- 
taining arrayness  information. 

XVAL 

The  meaning  of  XVAL  depends  on  the  indirect  stack 
entry's  FORM: 

1)  LIT:  For  double  precision  literals  VAL  and  XVAL 

together  contain  the  literal's  value. 

2)  SYM:  a)  If  the  entry  is  used  for  referencing 

arrayed  structures,  XVAL  is  AREASAVE. 

b)  If  the  entry  represents  a subscript 
in  a two-dimensional  reference,  XVAL 
is  a constant  multiplier  used  for 
creating  the  indexes. 

3)  VAC:  If  the  entry  is  used  for  emitting  shaping 

function  repeats,  this  is  the  index  register 
used. 

4)  0:  The  statement  number  of  a label  used  for 

generating  a successful  conditional  branch. 

5)  AIDX2 : A constant  multiplier  used  for  generating 

two-dimensional  subscript  references.  This  usage 

is  set  in  several  places  but  used  only  in  SEARCH_INDEX2 . 
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5.1.4  REGISTER  TABLE 

One  of  the  critical  elements  in  optimization  is  eliminating 
redundant  operations  (i.e.  loading  a variable  which  is  already 
in  a register) . The  greater  the  optimization,  the  more  record 
keeping  is  necessary.  The  HAL  compilers  go  to  great  lengths 
including  recognition  of  the  fact  that  a multiply  subscripted 
variable  is  already  in  a register.  The  appropriate  informa- 
tion is  kept  in  the  register  table. 

A group  of  arrays  of  length  REG_NUM,  which  describe 
the  contents  of  the  registers.  These  arrays  are: 

INDEXING  t BIT  (8) 

This  value  indicates  whether  a register  may  be 
used  as  an  index  register  or  not. 

R_BASE ; FIXED 

The  contents  of  the  register  if  it  is  used  as  a 
base  register. 

R_CON:  FIXED 

1)  If  the  register  contains  a literal,  this  is  the 
literal's  value.  For  double  precision  literals 
R_CON  and  R_XCON  together  hold  the  literal's 
value . 

2)  Any  constant  terms  that  are  to  be  added  to  the 
contents  of  a register  are  added  to  R_CON. 

3)  For  registers  of  form  SYM2 , R_CON  is  the  indexing 
constant  associated  with  the  first  subscript. 

R CONTENTS:  BIT (8) 


The  form  of  the  register's  contents  (LIT,  SYM,  VAC, 
AIDX,  XPT,  POINTER,  SYM2) . 

R INX:  BIT (16) 


The  index  register  associated  with  the  contents  of 
a register,  or  a negative  pointer  to  an  indirect  stack 
entry  representing  the  register  if  the  register  has  been 
checkpointed. 

R_INX_CON:  FIXED 

A constant  indexing  term  associated  with  the 
register  contents. 
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R__INX_SHIFT : BIT (8) 

^-CONTENTS  is  AIDx/this  is  the  number  of  bits 
the  contents  must  be  shifted  before  indexing  The 

?o^^findexed?''''lhI??Ina^Sf® 

multiplying  by  the  byte  width'^of  Se^ciplrand'^typrin^the 
register  to  obtain  the  number  of  halfwords  to  be  indexed. 

R_MULT:  BIT (16) 

arrayLS*';el2ren=L‘!''""“  t„o-dl„enslonal 

R_SECTION:  BIT  (8) 

For  a virtual  base  register,  this  is  the  number  of  the  csect 
containing  the  variable (s)  which  required  this  base. 

R_TYPE:  BIT (8) 

The  operand  type  of  the  register's  contents. 

R_VAR:  BIT (16) 


Form  of  Contents 
SYM 
AIDX 

AIDX2/SYM2 


XPT 

POINTER 


Significance  of  R VAR 

"to  the  symbol  table  entry. 

Pointer  to  the  indirect  stack  entry 
for  the  array  index  variable. 

Pointer  to  the  indirect  stack  entry 
set  up  as  an  index  variable  for  the 
do  loop  to  process  the  second  subscript 
in  a two-dimensional  reference. 

Associated  virtual  base  register  num?oer. 

Pointer  to  the  symbol  table  entry  of 
pointer  type  parameter  or  NAME  variable. 


R_VAR2:  BIT (16) 

reLrLoS?^  secona'’suts??iprS  n^^^LlSional 
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R_XCON;  FIXED 

1)  Used  together  with  R_CON  to  hpld  the  value  of 
a double  precision  literal. 

2)  If  R_^CONTENTS  is  SYM2 , R_XCON  is  the  indexing 
constant  associated  with  the  second  subscript 
in  a two-dimensional  reference. 

USAGE:  BIT (16) 

Reflects  the  claims  on  a register.  The  number  of  claims 
on  a register  is  the  greatest  integer  of  USAGE/2.  An  even  value 
indicates  that  the  contents  of  the  register  is  unknown?  an  odd 
^^1^®  indicates  that  it  is  known.  A value  of  1 means  that  the 
contents  is  known  but  not  currently  needed. 

USAGE_LINE : BIT (16) 

A pointer  to  the  HALMAT  operator  being  decoded  when  the 
register  was  last  allocated.  This  value  is  used  to  decide  which 
register  to  store  when  no  free  register  is  available. 
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5.1.5  Storage  Descriptor  Stack 

A set  of  arrays  of  size  LASTEMP.  These  arrays  contain 
information  about  all  the  entries  in  temporary  storage. 


The  arrays  are: 

ARRAYPOINT 

Pointer  chaining  together  all  the  temporary  storage 
entries  for  a given  do  block,  or  0 for  the  last  temporary 
storage  entry  for  that  block.  DOTEMP  of  each  do  level 
points  to  the  beginning  of  the  chain. . 

LOWER 

Initial  BIGNUMBER.  The  address  of  the  beginning  of  a 
temporary-  storage  entry;  the  lower  bound  of  an  entry  in 
storage. 

POINT 

Pointer  to  the  temporary  storage  entry  that  occupies 
the  space  following  a given  entry.  POINT (0)  always 
points  to  the  first  entry  in  this  linked  list.  POINT 
of  the  last  entry  points  to  zero. 

SAVEPOINT 

An  array  of  pointers  to  temporary  storage  entries  that  are 
no  longer  necessary. 

SAVEPTR 

A pointer  to  the  last  entry  in  SAVEPOINT. 


UPPER 

Points  to  the  upper  bound  of  an  entry  in  storage. 

If  less  than  or  equal  to  0,  the  temporary  storage  is  not 
in  use . 

WORK  CTR 


A pointer  to  the  HALMAT  operator  word  at  the  time 
storage  is  required. 

WOJtvK  USAGE 


The  number  of  indirect  stack  entries  using  the  value 
in  temporary  storage  when  the  value  is  the  contents  of  a 
register.  This  nuraber  is  necessary  for  determining  which 
temporary  space  can  be  dropped. 
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5.1.6  DO  Loop  Descriptor  Declarations 


A group  of  arrays  of  length  DOSIZE  is  used  for 
storing  information  necessary  for  generating  code  for  DO  loops. 
The  stack  contains  entries  for  each  nested  DO  loop  that  is 
being  processed. 


DOBASE 

Is  an  array  of  size  1 used  for  generating  code 
for  DO  FOR  loops.  DOBASE  is  the  base  register  used  for 
addressing  the  index  variable  of  the  DO  FOR  loop.  DOBASE (1) 
is  a negative  pointer  to  the  indirect  stack  entry  representing 
DOBASE  if  the  index  variable  is  a CSYM;  otherwise,  it  is 
DOBASE . 


DOCASECTR 

Is  the  number  of  cases  associated  with  a DO  CASE 
statement. 


DOFORCLBL 

Is  the  LABEL  ARRAY  (entry  = flow  number)  for  the  label 
pointing  to  the  value  of  a discrete  DO  FOR  loop  entry. 


DO  INK 

Is  the  index  register  used  for  addressing  the  index 
variable  in  a DO  FOR  loop.  If  the  index  variable  is  a CSYM, 
DOINX(l)  is  a negative  pointer  to  the  indirect  stack  entry 
set  up  for  storing  the  contents  of  DOINX;  otherwise  it  is  DOINX. 
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DOLEVEL 


DOLEVEL  is  a pointer  to  the  stack  entries  for  the 
do  loop  for  which  code  is  currently  being  generated.  The 
zeroeth  array  entries  are  used  as  well  as  the  entries  with 
xndex  DOLEVEL  to  describe  the  current  DOLEVEL. 

The  array  entries  associated  with  each  DO  LOOP  are; 
DOFORB’INAL 

pointer  to  a temporary  storage  location  containing 
the  final  value  of  an  iterative  DO  FOR  loop. 

DOFORINCR 

pointer  to  a temporary  storage  location  containing 
the  increment  for  iterative  DO  FOR  loops. 

DOFOROP 


A pointer  to  the  indirect  stack  entry  for  the  index 
variable  in  a DO  FOR  loop. 

DOFORREG 


The  register  containing  the  value  of  the  index  variable 
for  a DO  FOR  loop. 

DOLBL 


Pointer  to  the  label  array  entry  for  a label  marking 
the  code  following  a DO  loop.  The  label  array  entries 
following  DOLBL  are  also  used  for  DO  loop  code  generation. 

DOTEMP 

Pointer  to  a chain  of  temporary  storage  entries  for 
temporary  variables  in  the  DO  loop.  (See  ARRAYPOINT.) 

POTYPE 

The  type  of  DO  FOR  loop;  0 if  discrete  loop 

1 implicit  increment  of  1 

2 explicit  increment 


POUNTIL 

4-1,  4-  Storage  location  used  to  generate  code  so 

that  a DO  FOR  loop  is  executed  at  least  once  before  a DO 
UNTIL  condition  is  tested.  If  no  UNTIL  clause,  DOUNTIL  = 0. 
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5.1.7  ARRAY-DO-LOOP  Declarations 

Two  stacks  are  used  to  create  the  do  loops  implied  by 
HAL/S  arrayed  statements.  Arrayness  is  specified  by  a HALMAT 
ADLP  or  IDLP  operator;  some  of  the  information  associated 
with  each  stack  entry  is  applicable  to  only  one  of  these 
operators. 


I.  ARRAY  REFERENCE  STACK 


A group  of  arrays  of  length  DONEST  used  to  keep  track 
of  information  about  array  references  at  specific  call  levels. 
The  stack  entries  are  pointed  to  by  CALL_LEVEL. 

DOCOPY 

The  number  of  dimensions  of  arrayness  of  the  context 
(cf.  COPY). 

DOCTR 

Pointer  to  HALMAT  ADLP  operator.  ' 

DOFORM 


The  form  of  the  reference: 


Value 

0 

1 

2 


Description 

All  cases  except  those  below. 

Static  Initialization. 

Simple  array  parameter  reference  not 
followed  by  an  expression  and  not 
part  of  an  I/O  routine.  This  is  an 
interesting  case  because  the  parameter 
can  simply  be  passed  by  reference 
with  no  iterative  processing  involved. 


DOPTR 


Pointer  to  the  first  entry  in  the  Array  DO  LOOP  Stack 
associated  with  the  reference. 


DOPTR# 

A pointer  to  the  array-do-loop  stack  entry  associated 
with  a subscript  referenced  by  a HALMAT  TSUB  or  DSUB  operator. 

; DOTOT 

Pointer  to  the  last  entry  in  the  Array-Do-Loop  Stack 
I ^ associated  with  the  reference.  (Equivalent  to  DOPTR(CALL_ 

LEVEL)  + DOCOPY  (CALLJLEVEL . ) 
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SDOLEVEL 

The  CALL  LEVEL  at  the  beginning  of  the  HALMAT 
ADLP  operator~processing. 

SDOPTR 

Pointer  to  the  first  entry  in  Array  DO  LOOP  Stack 
associated  with  the  reference. 

SDOTEMP 

Pointer  to  the  first  entry  in  a chain  of  temporary 
storage  entries  used  in  setting  up  the  array  do  loops 
for  a reference.  The  other  entries  in  the  chain  are 
linked  by  ARRAYPOINT. 

II.  ARRAY  DO  LOOP  STACK 

A group  of  arrays  of  length  DOLOOPS 
containing  information  about  the  do  loops  that  are  necessary 
for  processing  each  dimension  of  arrayness.  The  entries 
in  the  Array  DO  LOOP  Stack  are  pointed  to  by  ADOPTR. 


I 


ADOPTR 

A pointer  to  table  entries  for  the  most  current 
DO  LOOP  that  is  being  set  up  for  array  processing. 

DOBLK 

HALMAT  block  containing  IDLP  operator . 


DOINDEX 

For  IDLP  references,  the  actual  value  of  an  index 
variable  which  is  compared  with  DORANGE.  Otherwise,  it  is 
the  pointer  to  an  indirect  stack  entry  for  a register  set 
up  to  be  used  as  an  index  variable  for  the  loop  to  process 
the  dimension  of  arrayness. 

DOLA.BEL 

For  IDLP  references,  it  is  a pointer  to  the  current 
HALMAT  operand.  Otherwise,  a statement  number  pointing 
to  the  code  within  the  do  loop. 

DORANGE 

For  IDLP  references,  the  array  dimension  minus  one. 
Otherwise,  a pointer  to  an  indirect  stack  entry  representing 
the  size  of  the  dimension. 
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DOSTEP 


The  increment  used  in  the  do  loop, 
to  IDLP.) 


(Not  applicable 


i 


STACK# 


A pointer  into  the  SUBLIMIT  array.  It  is  0 for  an 
ordinary  array  reference.  For  a subscripted  variable  it  is 
the  array  dimension  +1.  In  this  way,  if  the  subscripts  are 
arrayed,  STACK#  points  to  the  first  SUBLIMIT  entry  containing 
information  about  the  subscript's  arrayness. 


SUBLIMIT 


An  array  used  to  contain  information  about  the  arrayness 
and  size  of  a variable  being  subscripted  and  of  the  subscript. 
If  the  variable  has  n dimensions,  the  0 - n-l^t  entries  are 
the  size  of  the  1st  to  nth  dimensions  and  the  nth  entry  is 
AREASAVE  (=  size  of  individual  element).  The  n+l®t  to _ n+mth 
entries  are  the  size  of  the  m dimension  of  the  subscript,  if  it 
is  arrayed,  and  the  n+m+ist  entry  is  the  subscript's  AREASAVE. 


SUBRANGE 


1)  Used  as  an  array  of  temporary  variables  to  set  up 
SUBLIMIT. 


2)  The  ith  entry  is  used  for  the  range  of  the  ith 
subscript  in  a subscript  reference. 
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5.1.8  HALMAT  and  Associated  Material 

This  section  describes  the  variables  used  in  reading, 
decoding,  and  interpreting  the  HALMAT  created  by  Phase  I. 
LlMAT  is  described  in  the  ''HAL/S-360  Compiler  System  Speci- 
fication", Appendix  A. 


* 
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Decoding  HALMAT  Instructions 
General  Declarations: 

CODEFILE;  The  file  etfSated  by  phase  1 and  massaged  by  phase  1.5 
which  contains  the  HALMAT  instructions.  The  file  is 
broken  into  blocks.  All  the  HALMAT  for  a single  HAL/S 
statement  must  fit  in  one  block.  Although  the  current 
block  may  be  examined  several  times , previous  blocks  are 
never  reread. 


CURCBLK: 


The  next  block  of  CODEFILE  to  be  referenced. 


OPR; 

CTR: 


READ_CTR ; 
SMRK_CTR : 
RESET: 

PP; 


An  array  used  for  storing  the  HALMAT  block 
currently  being  referenced. 

A pointer  to  the  HALMAT  operator  in  OPR  being 
decoded. 

Pointer  to  a HALMAT  READ  or  RDAL  instruction . 

Pointer  to  the’ next  HALMAT  SMRK  instruction. 

Pointers  to  HALMAT  operators. 

The  number  of  HALMAT  operators  converted  by 
Phase  2. 


Operator  Word; 


Phase  2 

TAG 

NUMOP 

CLASS 

OPCODE 

0 

HAL/S- 
360  Com- 

T 

N 

OP 

P 

0 

piler  Spec 

• 8 

8 

4 

+ 8 

3 

1 

The  P field  has  no  Phase  1.5  name,  but  two  of  its  values  have 
Phase  1.5  mnemonics.- 

P Value  Phase  1.5  HAL/S-360  Compiler  Spec. 

1 XN  N 

2 Xb  D 


The  P field  on  exit  from  phase  1.5  is  used  to  convey  code 
optimization  information 

P Value  Phase  2 Meaning 

4 - CSE  (at  least  2 references) 
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CLASS; 


The  class  of  the  current  HALMAT  operator. 
0 formattinq,  proqram  oraanization.  exe 


formatting,  program  organization,  execution 
control,  linkage,  system  control,  subscripting 


bit  operations 
character  operations 
matrix  arithmetic 
vector  arithmetic 
scalar  arithmetic 
integer  arithmetic 
conditional  arithmetic 
initialization 


If  the  CLASSt^O,  the  eight  bit  OPCODE  is  broken  down 
further  into  a three  bit  SUBCODE  and  a five  bit  OPCODE. 


SUBCODE 

3 


OPCODE 

5 


SUBCODE;  A value  generated  by  Phase  2 used  to  classify 
opcodes  within  the  same  class. 


Operand  Word; 


Phase  2 

HAL/S- 
360  Com- 
piler Spe( 


OPl 

TAG  3 

TAGl 

TAG  2 

1 

D 

T1 

Q- 

T2 

1 

• 16 

8 

4 

3 

1 

TAG 2 extracted  by  X_BITS 
TAGl  extracted  by  TAG_BITS 
TAG3  extracted  by  TYPE  BITS 


TAGS ; 


Used  to -extract  information  from  the  general  purpose 
tag  field  of  a HALMAT  SCHD  operator.  For  this  operator 
the  tag  field  specifies  the  presence  of  options  in  the 
schedule  statement. 


5-24 


INTERMETRICS  INCORPORATED  • 701  CONOORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


4 ’K 


1 

Operand  Qualifiers; 

Value  Phase  2 

0 

1 SYM 

2 INL 

3 VAC 

4 XPT 

5 LIT 

6 IMD 

7 no  equivalent 

8 CSIZ 

9 ASIZ 

10’  OFFSET 


INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE 


HAL/S-360  Compiler  Spec. 


SYT  or  SYL 
GLI  or  INL 
VAC 
XPT 
LIT 
IMD 
AST 
CSZ 
ASZ 
OFF 
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OPERATOR  PROPERTIES 
A collection  of  arrays  of  OPSIZE 


Value 


Operator 


lUnary  I Commutative  i Condition  i Reverse i Additive  i Destructive  i Arith  ( 


A 

10 

B 

11 

E 

14 

F 

15 

i: 

16 

11 

17 

Load 

Store 

AND 

Or 

Not/EXOR 
Not  Equal 
Equal 

Not  Greater  Than 

Greater  than 

Not  less  than 

Less  than 

SUM 

MINUS 

Multiplication 

Division 

Exponentiation 

PREFIXMINUS 

Integer  Exponent 

Positive  Integer 

Exponent 

ABS 

Test 

Exclusive  Or 
Midval  ^ 


OPERAND  TYPES  AND  PROPERTIES 


A collection  of  arrays  of  size  TYP_SIZE 


Phase  2 Names 


Description 


Value  IPACKTYPE I SELECTYPE ICHARTYPEI  DATATYPE  I CVTTYPE  I BIGHTS  lOPMODE iRCLASS 1 SHIFT 


BITS/BOOLEAN  1 Halfword  bit 


MATRIX 

VECTOR 

SCALAR 

INTEGER 


POINTER 


FULLBIT 


DINTEGER 

EXTRABIT 

STRUCTURE 

EVENT 

CHARSUBBIT 


Character 

Single  precision  matrix 
Single  precision  vector 
Single  precision  scalar 
Single  precision  integer 


Fullword  bit 


Double  precision  matrix 
Doiable  precision  vector 
Double  precision  scalar 

Double  precision  integer 

Double  word  item  used  in 
SUBBIT  context 

Structure 

Event 

Character  subbit 


HALMAT  Opcodes  ‘ 


XADD  "OB"  integer  and  scalar  addition 

XBNEQ  "7250"  operator  for  Bit  String  Comparison  for 

Inequality 

XCFOR  "0120"  operator  for  a DO  FOR  Condition  Delimiter 

XCSIO  "07"  used  for  generating  calls  to  character  I/O 

routines 

XCSLD  "09"  used  for  generating  calls  to  a character 

library  routine 

XCSST  "OA"  used  for  generating  calls  to  a character 

library  routine 

XCTST  "0160"  operator  for  a DO  WHILE/UNTIL  delimiter 

XDIV  "OE"  scalar  division 

XDLPE  "0180"  operator  for  an  end  arrayness  specifier 

XEXP  "OF"  scalar  exponentiation 

XEXTN  "0010"  operators  which  lists  the  multiple 

symbol  table  references  required  for 
referencing,  a structure  variable 

XFBRA  "OOAO"  operator  for  branch  on  false 

XFILE  "0220"  operator  for  file  I/O 

XICLS  "0520"  operators  used  to  close  an  inline  function 

block 

XIDEF  "0510"  operator  for  the  opening  of  an  inline 

function  block 

XILT  "7GA0"  operator  for  integer  less  than  comparison 

XIMRK  "0030"  operator  for  an  inline  function  statement 

marker 

XMASN  "15"  used  for  generating  calls  to  vector-matrix 

assignment  routines 

XMDET  "11"  used  for  matrix  determinant  routines 

XMEXP  "19"  used  for  generating  calls  to  matrix 

exponentiation  routines 

XMIDN  "13"  used  for  generating  calls  to  identify 

matrix  routines 
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XMINV 

"OA" 

used  for  generating  calls  to  matrix  inverse 
routines 

XMTRA 

"09" 

for  matrix  transposes,  also  used  for 
generating  calls  to  the  routine  that 
performs  this  operation 

XMVPR 

"OC" 

for  vector-matrix  products,  also  used  for 
generatings  calls  to  the  appropriate  library 
routine 

XNOT 

"04" 

for  logical  not,  also  used  as  an  index  into 
the  operator  table 

XOR 

"03" 

for  logical  or,  also  used  as  an  index  into 
the  operator  table  to  obtain  information 
about  the  operator 

XPASN 

"18" 

used  for  generating  calls  to  matrix  assignment 
routines 

XPEX 

"12" 

for  integer  exponentiation 

XRDAL 

"0200" 

operator  for  Readall  I/O 

XREAD 

"OlFO" 

operator  for  Read  I/O 

XSASN 

"14" 

used  for  generating  calls  to  vector-matrix 
assignment  routines 

XSFAR 

"0470" 

operator  for  shaping  function  arguments ' 
reference 

XSPND 

"0460" 

operator  marking  the  end  of  a shaping 
function  reference  definition 

XSFST 

"0450" 

operator  marking  the  start  of  a- shaping 
function  reference  definition 

XSMRK 

"0040" 

operator  for  a Statement  Marker 

XVMIO 

"16" 

used  for  generating  calls  to  vector-matrix 
I/O  routines 

XWRIT 

"0210" 

operator  for  write  I/O 

XXASN 

"01" 

for  assignment 

XXREC 

"0020" 

operating  indicating  the  end  of  a HALMAT 
record 

XXXAR 

"0270" 

operator  marking  an  argument  reference 

XXXND 

"0260" 

operator  marking  the  end  of  a reference 
definition 

XXXST 

"0250" 

operator  marking  the  start  of  a reference 

definition 
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other  Associated  Variables 
INITBLK  ( Izvzl) 

of  being  referenced  at  each  nut  UmqZ 

ox  an  initialization  repetition  sDeciflraxirtn  ttoa/i  4-^ 
backspace  the  HALMAT  in-order  ?o"^e?fo™"l“epet??lon?° 

INITCTR  { nut  Zavel) 

• •. beginning  of  a repeated  block  of  HALMAt 

inatialxsation.  The  HALMAT  is  backspLed  to  this  poi^^L 
for  each  repetition  (l.e.  INITREPT  (nett  toef)  tines). 

LEFTQP 

HALMAriSstLc?ion?“^“ 


LHSPTR 

1) 

2) 


An  index  variable  used  to  address  the  HALMAT 

operand  words  for  the  receivers  in  multiple 
assignment  statements.  uxuxpxe 

Used  to  reference  the  HALMAT  operand  words  for 
time  and  event  expressions. 

NEWPREC 

Precision  of  result  specified  by  HALMAT  instruction. 

0:  arbitrary 

1:  single 

2:  double 

OPTYPE 

Type  of  result  of  current  instruction. 

RESULT 

indirect  stack  entry  representing  the  result  of 
a HALMAT  instruction,  (e.g.  result  of  a function  call). 

RICH TOP 

Of  a HA^Sif  i^sSucMon':''"^'^ 


;«r.v  ' 
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At 


' jgt. 


SUBOP 


The  HALMAT  operand  word  that  is  currently  being 
decoded  in  a TSUB  or  DSUB ■ instruction. 


XD 


^ HALMAT  operator  word  pseudo-optimizer 
tag  tield  mnemonic  for  an  arrayness  specification. 


XN 


^^itial  1.  A HALMAT  operator  word  pseudo-optimizer 
tag  field  mnemonic  for  an  arrayness  upshift  stopper. 


XPT 


. ^J^itial  4.  The  HALMAT  operand  qualifier  for  an  extended 
pointer.  This  pointer  is  used  for  referencing  structure 
variab_es;  the  operand  field  is  a pointer  to  the  HALMAT  EXTN 
operator  listing  the  multiple  symbol  table  references  required 
to  specify  the  variable.  - 


1 
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5.1.9  Arguments  of  Procedures  and  Functions 


ARG_NAME 

1 if  argument  is  a name  parameter, 

0 otherwise. 

ARG_STACK 

Pointer  to  the  indirect  stack  entry  which  corresponds 
to  each  argument  in  the  argument  stack. 

ARG_STACK# 

Siz,e  of  argument  stack. 

ARG_  STACK_PTR 

Pointer  to  next  free  entry  in  argument-  stack. 

ARG_TYPE 

For  list  and  shaping  functions  specifies  repeat 
factor  (cf.  HAL/S-360  Compiler  Spec.,  page  A-60) ; otherwise, 
true  if  assign  parameter. 

ARGNO 

The  actual  number  of  an  argument  (1,2,...)  rather  than 
its  index  in  the  argument  stack. 

ARGPOINT 

A pointer  to  the  symbol  table  entry  for  an  argument. 
ARGTYPE 

The  type  of  the  entry  pointed  at  by  ARGPOINT. 

FIXARGl 

Initial  5,  FC  only.  Register  for  use  as  an  index 
register,  for  passing  integer  and  bit  parameters,  and  for 
returning  integer  and  bit  function  values. 
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FIXARG2 


Initial  6,  FC  only.  Register  for  use  as  an  index 
register  and  for  passing  integer  and  bit  parameters. 

FIXARG3 

Initial  7,  PC  only.  Register  for  use  as  an  index 
register  and  for  passing  integer  and  bit  parameters. 
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5.1.10  Runtime  Stack  Frame  and  Local  Block  Data  Area 

A runtime  stack  mechanism  is  'used  by  the  compiler 
to  provide  subroutine  linkage  area,  temporary  work  areas, 
error  vectors,  and  local  storage  for  reentrant  code  blocks. 
The  precise  format  of  the  runtime  stack  frame  can  be  found 
in  the  compiler  system  specification. 


■%  p 
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,g 

'XP' 


Registers  used  for  addressing  the  stack  frame  and 
associated  data: 


Register 
FC  360 

Phase  2 Name 

Contents 

0 13 

TEMPBASE 

Points  to  the  runtime  stack  frame 

1 10 

PROGBASE 

of  block  in  execution 
Points  to  the  program  level  data 
base 

Work  addressing  register  used  to 

2 

PTRARG 

3 

PROCBASE 

pass  address  parameters  and  de- 
reference name  variables 
Used  to  address  data  local  to  the 

4 14 

LINKREG 

block  in  execution 
Contains  the  return  address  for 

NARG INDEX  is 

tne  scope  number 

intrinsic  or  leaf  procedure  linkages 
of  the  current  block  and  its  index 

in  the  Block 

Definition  Table. 

TEMPBASE  IS  a register  which  points  to  the  beginning  of  the  current 
runtxme  stack  frame.  Certain  offsets -from  the  beginning  of  the 
frame  have  been  given  mnemonic  names  to  reflect  their  contents: 


Phase  2 Name 
REG I STER_SAVE_AREA 
STACK_LINK 

NEW_LOCAL_BASE 
NEW_GLOBAL_BASE 
NEW  STACK  LOC 


STACK  FREEPOINT 


Contents 

The  caller’s  register  save  area  is  stored 
beginning  at  this  offset. 

The  contents  is  the  pointer  to  the  pre- 
ceding stack  frame.  This  is  the  previous 
value  of  TEMPBASE. 

The  contents  is  the  pointer  to  the  current 
block's  Local  Data  Area.  This  is  equiva- 
lent to  the  current  value  contained  in 
PROCBASE. 

The  contents  is  the  pointer  to  the  current 
block's  Program  Data  Area.  This  is  equiva- 
lent to  the  current  value  contained  in 
PROGBASE. 

The  next  value  of  the  stack  pointer.  This 
value  is  set  when  a procedure  is  entered, 
except  when  no  new  procedure  is  to  be 
called.  (Used  only  when  SCAL  linkage  is 
not  used.) 

The  first  location  following  the  register 
save  area.  The  contents  of  the  caller's 
floating  point  register  are  saved 
starting  at  this  offset. 


ElPRODUOIBILlTt  OS' 

IS  pool”, 


5-35 


I 


INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  * CAMBRIDGE,  MASSACHUSETTS  02138  • r'.17)  661-1840 


Phase  2 Name 


Contents 


ERRSEG (NARGINDEX) 


WORKSEG (NARGINDEX) 


MAXTEMP  .(NARGINDEX ) 


The  displacement  in  the 
frame  where  the  error 
vector  starts . 

The  displacement  in  the 
^xame  where  the  work  area 
starts . 

The  maximum  space  occupied 
by  a run-time  stack  frame. 
The  displacement  of  the 
end  of  the  frame. 


The  code  for  setting  up  a new  run-time  stack  frame  when  a 
block  is  entered  is  generated  by  BLOCK_OPEN. 

The  ERROR  VECTOR  in  a runtime  stack  frame  contains  an 
entry  of  2 halfwords  for  each  ON  ERROR  statement  in  the 
block.  The  information  contained  in  the  error  vector  is 
contained  in  the  Error  Stack  and  augmented  by  the  Block 
Definition  Table  entry  for  the  runtime  stack  frame. 

The  Block  Definition  Table  provides  the  following 
information: 


ERRPTR: 
ERRSEG ; 
ERRALLGRP : 
ERRALL : 
MAXERR: 


A pointer  to  the  first  error  stack  entry 
associated  with  the  block. 

The  displacement  of  the  beginning  of  the  error 
vector  within  the  runtime  stack  frame. 

1 if  there  is  an  ON  ERROR*.*  statement  in  the 
block,  0 otherwise. 

The  number  of  error  groups  for  which  an  ON  ERRORgj-oup:* 
statement  appears  in  the  block. 

The  number  of  errors  for  which  ON  ERROR  statements 
exist  in  the  block. 


The  information  in  the  Block  Definition  Table  is  used 
primarily  for  determining  the  displacement  of  each  error 
within  the  vector.  This  is  done  in  the  procedure  SET_ERRLOC. 
The  errors  are  arranged  so  that  entries  for  single  errors 
in  a group  are  at  the  beginning  of  the  vectors.  These  are 
followed  by  entries  for  error  groups  with  all  errors  on.  The 
last  entry  indicates  the  action  to  be  taken  if  all  errors 
are  on  at  some  point  during  the  block's  execution. 
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The  Error  Vector  Entries  have  the  format  shown 
below; 


^(4) 

Error  Number... 

io) 

Error  Group  ^ g ^ 

Address 

The  displacement  of  an  Error  Vector  is  in  the  Error  Stack 
ERR  DISP  field. 


Error  Group  ) 
Error  Number  f 


This  information  is  in  the  Error  Stack's 
ERR  STACK  field. 


0000  GO  TO  Address 

XXOl  SYSTEM 

XX 11  IGNORE 

OOXX  No  event  action 

OIXX  SET 

lOXX  RESET 

IIXX  SIGNAL 


Determined  in  GENERATE  from 
the  HALMAT  ERON  instruction. 


Address:  The  address  of  an  Event  Variable  or  GO  TO. 
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The  Local  Block  Data  Area 


A Block  Data  Area  may  exist  for  any  program,  procedure, 
function,  task,  or  update  block.  The  Block  Data  Areas 
are  created  by  Phase  2 of  the  compiler  and  are  part  of 
DATABASE,  the  program  level  data  CSECT.  Storage  is 
allocated  for  the  Block  Data  Area  by  INITIALIZE,  and  the 
address  of  the  area  is  stored  in  the  block's  SYT  ADDR 
entry.  Register  3,  PROCBASE,  is  loaded  with  the  address 
of  the  Block  Data  Area  for  the  block  being  entered 
by  the  compiler  code  emitted  by  BLOCK_ENTRY.  PROCBASE 
points  to  the  Local  Block  Data  Area  for  the  block  in 
execution.  The  previous  values  of  PROCBASE  are  saved 
in  the  runtime  stack  frames. 

The  Block  Data  Area  consists  of  two  or  five  consecutive 


halfword  locations.  The  values  stored  in  the  first  two  | 
locations  are  determined  by  the  procedure  BLOCK_OPEN,  I 
the  remaining  ones  by  BLOCK_CLOSE.  The  format  of  a Block  I 
Data  Area  is  shown  below,  followed  by  an  explanation  of  | 
each  field  and  the  Phase  2 variables*  containing  the  | 
information.  I 


Fields 


PROCBASE  ->  1 

B] 

-OCk  ID 

2 

XU 

ONERRS 

ERRDISP 

3 

TYP 

UNUSED 

RESERVE  SVC# 

4 

UNUSED 

RELEASE  SVC# 

5 

. . 

LOCK  ID 

Only  required 
if  XU  = 1. 


N 

li 


'i 

■i 

if 
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, .MM.. . . 


Assume  that  BLOCK  is  a pointer  to  the  block's  symbol 
table  entry,  and  SCOPE  is  the  block's  SYT  SCOPE. 


Field 

1.  Block  ID 


Phase  2 Reference 

CMPUNIT_ID 
SYT  SCOPE (BLOCK) 


2.  XU 


CALL# (SCOPE) =4 


ONERRS 


ERRDISP 


MAXERR (SCOPE) 


ERRSEG( SCOPE) 


3.  TYP 


Determined  from 
SYT  CONST (BLOCK) 


5-39 


Definition 

A 16  bit  field  uniquely 
identifying  the  block. 

(9  bits).  The  first  9 
bits  are  a user  supplied 
compilation  unit  number. 

(7  bits) . The  last  7 
bits  are  the  compiler 
generated  number  identi- 
fying each  block.  This 
is  to  provide  a pointer 
to  the  information  about 
the  block  in  the  Block 
Definition  Table. 

(1  bit)  EXCLUSIVE_UPDATE 
flag.  Set  to  1 if  the 
block  is  either  an  EXCLUSIVE 
or  UPDATE  block.  This  is 
indicated  by  a CALL# (SCOPE) 
of  4 . 

(6  bits) . The  number  of 
discrete  errors  for  which 
an  ON  ERROR  statement  exists 
in  the  block. 

(9  bits) . The  displacement 
in  halfwords  from  the  begin- 
ning of  the  block's  runtime 
stack  frame  to  the  error 
vector. 

(1  bit) . Set  to  zero  for 
EXCLUSIVE  functions  or 
procedures.  For  update  blocks, 
set  to  one  if  shared  data 
variables  are  read  only,  and 
set  to  zero  if  shared  data 
variables  are  to  be  written. 
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Field 


Phase  2 Reference 


Definition 


RESERVE  SVC# 


4 . RELEASE  SVC# 


5 . LOCK  ID 


INTERMETRiCS  INCORPORATED  • 701 


(8  bits) . SVC  number  for 
the  reserve  SVC; 

15  for  a code  block 

16  for  a data  area 

(8  bits) . SVC  number  for 
release  SVC; 

17  for  a code  block 

18  for  a data  area 

(15  bits).  Indicates 
which  code  blocks  or  data 
areas  are  being  used. 

The  contents  of  an  For  an  EXCLUSIVE  block,  it 
offset  in  EXCLBASE  is  the  address  of  its 

EXCLUSIVE  data  CSECT. 

SYT  CONST (BLOCK)  For  a data  area,  it  is  a 

& 7FFF”  bit  string  specifying 

which  lock  groups  are 
involved. 

1 
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5.1.11  Vector-Matrix  Optimization 

The  temporary  storing  of  the  result  of  a HALMAT  vector- 
matrix  operation  immediately  before  an  assignment  can  be 
eliminated  if  certain  conditions  hold.  A detailed  description 
of  these  conditions  may  be  found  in  the  HAL/S-FC  Compiler 
Specification,  Section  3. 1.5. 5, 

The  variables  associated  with  vector-matrix  optimization 
can  be  grouped  in  the  following  way: 


I.  Global  Flags: 

NO_VM_OPT  A compiler  option  specifying  that 

vector-matrix  optimization  is  not 
required.  In  this  case,  some 
unnecessary  temporary  stores  for 
the  results  of  vector-matrix  opera- 
tions will  be  generated. 

ALL  FAILS  True  if  optimization  probably  not 

possible. 

OK_TO_ASSIGN  True  if  optimization  probably 

~ possible. 


II.  Variables  Associated  with  the  HALMAT  Operation: 

STMT  PREC  True  if  either  operand  is  double 

“ precision. 

CLASSl  OP  True  if  the  operation  is  in  Class  1. 

“ This  class  only  includes  raising  a 

matrix  to  the  0th  power. 

CLASS 3_OP  A flag  indicating  that  the  opera- 

tion  is  in  class  3.  Class  3 opera- 
tions include  matrix-scalar  and 
vector-scalar  multiplication  and 
division,  vector-matrix  addition  and 
subtraction,  vector  and  matrix  nega- 
tion, and  the  built-in  function  UNIT. 


SRCE  A pointer  to  the  value  being  assigned 

in  a vector  or  matrix  assignment 
statement.. 

ASNCTR  A pointer  to  the  HALMAT  assignment 

operation  following  the  V-M  operation 
to  be  optimized. 

''•tP' 
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Variables  associated  with  either:  operand  while  its 
properties  are  being  determined; 


OPER  SYMPTR 


OPER  PARM  FLAG 


START  PART 


SRCEPART  SIZE 


NAME  OP  FLAG 


VAC  FLAG 


SUBSTRUCT  FLAG 


A pointer  to  the  symbol  table 
entry  of  an  operand. 

A flag  used  to  indicate  whether 
an  operand  of  a vector  or  matrix 
instruction  is  a parameter. 

The  offset  used  to  find  the  beginning 
of  a matrix  partition  for  an  operand 
in  a matrix  instruction  that  is 
being  considered  for  vector-matrix 
optimization. 

The  extent  of  the  partition  of  an 
operand  in  a matrix  instruction 
being  considered  for  vector-matrix 
optimization. 

A flag  used  to  indicate  whether  the 
last  HALMAT  operator  is  a name 
variable.  (Name  variables  that  are 
operands  stored  in  the  temporary  work 
area  cause  this  flag  to  be  false.) 

A flag  used  to  indicate  whether 
the  last  operand  decoded  is  in  the 
temporary  work  area. 

A flag  used  to  indicate  whether  the 
last  operand  examined  is  a terminal 
of  a subscripted  structure. 


The  properties  associated  with  the  operands  are; 
LEFT  NSEC  or  RIGHT  NSEC 


A flag  used  to  indicate  that  the 
left-hand  (or  right-hand)  operand 
of  a vector-matrix  operation  is  in 
temporary  storage. 


LNON  IDENT  or  RNON  IDENT 


A flag  used  to  indicate  that  the  left 
(or  right)  operand  of  a vector-matrix 
instruction  and  the  receiver  of  an 
immediately  following  assignment 
statement  with  one  receiver  are  not 
identical. 
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LEFT_DISJOINT  or  RIGHT_DIS JOINT 


A flag  used  to  indicate  that  the 
left  (or  right)  operand  of  a vector- 
matrix  operation  and  a suitable 
receiver  of  an  assignment  statement 
are  disjoint. 


III.  Variables  Associated  with  the  Receiver 


RECVR 


RECVR  SYMPTR 


RECVR  NEST  LEVEL 


RTYPE 


START  OFF 


PART  SIZE 


A pointer  to  the  indirect  stack 
entry  for  the  receiver  in  an  assign- 
ment statement  with  a single 
receiver. 

The  pointer  to  the  symbol  table  entry 
for  the  receiver  for  an  assignment 
statement  being  considered  for  vector- 
matrix  optimization. 

The  nest  level  of  the  receiver  in 
an  assignment  statement  being  considered 
for  vector-matrix  optimization. 

A flag  used  to  indicate  the  precision 
of  the  receiver  in  an  assignment 
statement  with  single  receivers. 

The  offset  used  to  find  the  beginning 
of  a matrix  partition  for  the  receiver 
of  a matrix  assignment  statement 
being  considered  for  vector-matrix 
optimization. 

The  extent  of  the  indexing  term  associated 
with  a partitioned  matrix  receiver  in 
an  assignment  statement  used  for 
vector-matrix  optimization. 


Intermediate  flags  associated  with  the  Receiver: 


REMOTE  RECVR 


A flag  used  to  indicate  that  the 
receiver  in  an  assignment  statement 
with  a single  receiver  has  the  REMOTE 
attribute. 
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to. 

fi 

Flags  associated  with  the  Receiver: 

INX_OK  A flag  used  to  indicate  that  a 

receiver  in  an  assignment  statement 
with  a single  receiver  does  not  have 
variable  subscripting. 

NONPART  (-iVAC_FLAG  & -)SUBSTRUCT_FLAG) 

A flag  used  to  indicate  whether 
the  receiver  in  an  assignment  state- 
ment with  a single  receiver  is  non- 
partitioned. 

ASSIGN_PARM_FLAG  A flag  used  to  indicate  whether  the 

receiver  in  an  assignment  statement 
with  a single  receiver-  is  an 
assign  parameter. 

RECVR_OK  (nNAME_OP_FLAG  & -\REMOTE_RECVR  & "i  SUBSTRUCT_FLAG) 

A flag  used  to  indicate  that  the 
receiver  in  an  assignment  statement 
with  a single  receiver  is  not  a 
REMOTE  or  NAME  variable,  and  is  not 
a terminal  of  a subscripted  structure,  ' 
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5.1.12  Other  Useful  Compendia 


Register 

Names  Used  by  Phase 

2 

Register 

Phase  2 

Reference  Number 

Names 

RO 

0 

TEMPBASE 

Rl 

1 

PROGBASE,  SYSARGO 

R2 

2 

PTRARG,  SYSARGl 

R3 

3 

PROCBASE,  SYSARG2 

R4 

4 

LINKREG 

R5 

5 

FIXARGl 

R6 

6 

FIXARG2 

R7 

7 

FIXARG3 

FO 

8 

FRO 

FI'..  ■ 

9 

PRl,  REMOTE_BASE 

F2 

10 

FR2 

F3 

11 

F4 

12 

FR4 

F5 

13 

F6 

14 

FR6 

F7 

15 

FR7 
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Operand  Qualifiers  Declared  in  Phase  2 


Operand  qualifiers  are  used  in  Phase  2 by  HALMAT 
operand  words,  Indirect  Stack  Entries,  the  Register  Table, 
and  the  Intermediate  Code  File  to  classify  the  operands 
and  give  significance  to  the  other  operand  fields.  The 
operand  qualifiers  used  by  each  table  do  not  form  groups 
with  mutually  exclusive  names  or  values.  The  table  below 
lists  the  possible  qualifiers  values,  their  Phase  2 names 
if  they  exist,  and  which  tables  use  them. 


USERS 

Phase  2 

HALMAT 

Indirect  Stack 

Register 

Intermediate 

Value 

Mnemonic 

Operands 

Entries 

Table 

Output  Code 

0 

/ 

/ 

1 

SYM 

SYT/SYL 

/ 

/ 

/ 

2 i 

■ INL 

GLI/INL 

AIDX 

/ 

/ 

3 

VAC 

VAC 

/ 

/ 

4 

XPT 

XPT 

/ 

X 

5 

LIT 

LIT 

/ 

/ 

6 

IMD 

IMD 

/ 

CSYM 

X (AST) 

/ 

/ 

POINTER 

/ 

CHARLIT 

/ 

^ 1 

CSIZ 

CSZ 

9 

ASTZ 

ASZ 

X 

in  i 

EIXLIT 

/ 

10  1 

OFFSET 

OFF 

/ 

11-13 

/ 

14 

■NT rim  TTGT?n 

15 

CLBL 

/ 

16 

ADCON 

/ 

17 

LOCREL 

/ 

18 

LBL 

/ 

/ 

19 

FLNO 

/ 

/ 

20 

STNO 

/ 

/ 

21 

SYSINT 

/ 

22 

EXTSYM 

/ 

/ 

23 

SHCOUNT 

24-28 

^fom  TTCT?n 

29 

SYM2 

/ 

30 

AIDX2 

/ 

31 

WORK 

/ 

/ Qualifier  value  is  used.  X Qualifier  is  used,  but  has  no 

Phase  2 mnemonic. 


(For  HALMAT  operands,  / and  X have  been  replaced  or  supplemented 
by  the  mnemonic  used  in  the  HAL/S-360  Compiler  Spec.,  Appendix  A.) 
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-f  ► 


Intermediate  Output  Code  Opcodes 


32 

RRTYPE 

45 

PDELTA 

33 

RXTYPE 

46 

C STRING 

34 

SSTYPE 

47 

CODE  END 

35 

DELTA 

48 

PLBL 

36 

ULBL 

49 

DATA  LIST 

37 

ILBL 

50 

SRSTYPE 

38 

CSECT 

51 

CNOP 

39 

DATABLE 

52 

NO 

40 

DADDR 

53 

NADDR 

41 

PADDR 

54 

PROLOG 

42 

LADDR 

55 

ZADDR 

43' 

RLD 

56 

SMADDR 

44 

STMTNO 

4*-  ' ■ 

■41r 
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Opcode  Construction 


H.  ^ 


Declarations  Involved; 

ARITH_OP,  OPMODE,  MODE  MOD,  RR,  RX,  RI . 


ARITH_OP:  An  array  giving  the  basic  RR  opcode  for  each 

of  the  OPSIZE  operators  in  the  operator  table. 

OPMODE:  An  array  giving  the  operation  mode  for  each 

operand  type : 

OPMODE  Operand  Type 


0 

1 

2 

3 

4 

5 


Character 

Halfword  bit,  single  precision  integer 
Fullword  bit,  double  precision  integer 
Single  precision  scalar 
Double  precision  scalar 
Structure 


There  are  four  instruction  types: 


RR  initial (0) 
RX  initial  (5) 
RI  initial (10) 
RS  initial (15) 


which  can  take  on  the  above  modes.  The  instruction  type  and  the 
mode  are  added  together  to  get  an  index  into  the  MODE_MOD  array. 
This  array  provides  a value  used  for  modifying  the  basic 
opcode . 

The  complete  sequence  of  operations  for  generating  an  opcode 
is: 

ARITH_OP (operator+MODEJMOD (OPMODE (operand  type) +instruction  type) 

This  results  in  a two  digit  hex  opcode  whose  first  digit 
indicates  the  instruction  mode  whose  second  digit  indicates 
the  operator.  (This  method  cannot  be  used  for  all  opcode 
generation.) 
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't  *■ 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


MODE  MOD 


l^^Hex  Digit 


Description 


0 

0 

0 

"20" 

"10" 

1 

"30" 

"40" 

"60" 

"50" 

0 

' "90" 
0 
0 
0 
0 
0 

"BO" 


1 

1 

3 

2 


4 

5 
7 

6 


RR 

RR 


Single  precision  RR 
Double  precision  RR 
Illegal  on  PC 
Halfword  RX 
Fullword  RX 
Single  precision  RX 
Double  precision  RX 


Halfword  RI 


Fullword  RX  to  storage 
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i 


5.1.13  Alphabetical  Listing  of  Global  Phase  2 Data 


A 

Initial ("5A" ) . Opcode  used  for  code 
generation. 

ABS 

label 

ADCON 

Initial (16) . An  intermediate  code 
qualifier  which  indicates  an  address  con- 
stant to  be  used  as  a displacement  in  RX 
instructions. 

ADD 

Initial ("OB") . An  operator  code  for 
addition  used  as  an  index  into  the  tables 
of  properties  of  operators. 

ADDITIVE 

See  HALMAT  Operator  properties. 

ADDR_FIXED_LIMIT 

Common  value  passed  from  Phase  1. 

ADDR_FIXER 

Common  value  passed  from  Phase  1. 

ADDR_ROUNDER 

Common  value  passed  from  Phase  1. 

ADDRESS_STRUCTURE 

label 

ADDRS_ISSUED 

A flag  indicating  whether  the  source 
statement  number  of  the  current  statement 
has  been  output  to  the  intermediate  output 
code  file. 

ADJUST 

label 

ADOPTR 

See  Array  Do  Loop  declarations. 

AH 

Initial ("4A" ) . Opcode  used  in  code 
generation. 

AHI 

Initial ("AA" ) . Opcode  used  in  code 
generation , 

AIDX 

Initial  (2) * Array  index.  One  of  the 
possible  forms  of  an  indirect  stack  entry . 

AIDX2 

Initial  (30) . An  indirect  stack  entry 
form  for  a two-dimensional  array 
index. 

ALCOP 

literally  RESULT 

ALL  FAILS 

See  Vector-Matrix. 

ALLOCATE  TEMPORARY  label 
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-4  ,* 


ALWAYS 


AM 


AND 

ANY  LABEL 


APIOIINST 


AR 


AREA 


AREASAVE 


ARG_ASSEMBLE 
ARG  COUNTER 


ARG_NAME 
ARG  POINTER 


Initial  (7) . Used  in  generating  branch 
instructions  to  represent  a test  condi- 
tion of  7 (always  branch) . 


Addressing  mode  field  of  an  RS  format 
instruction . 


See  HALMAT  operator  properties. 


Initial  ("40") . One  of  the  entry  types 
in  the  symbol  table  used  to  distinguish 
label  entries  (type  "40")  from  other 
entries. 


Array  of  size  OPMAX.  Array  of  AP-101  op- 
codes indexed  by  the  corresponding  360 
opcode . 


Initial  ("lA") . 
generation. 


Opcode  used  in  code 


Product  of  AREASAVE  and  the  size  of  each 
dimension  arrayness  of  an  operand. 


A number  used  as  a basis  for  computing  the 
^ terminal  operand  occupies  since 
the  product  of  AREASAVE  and  the  bytes  the 
operand's  optype  occupies  gives  the 
value  determined  by  the  operand's  packtype. 

PACKTYPE  AREASAVE 


0 Matrix/Vector 


1 Bit 

2 


3 Integer/Scalar 

4 Structure 


ROW  X COLUMN  or  Number  of 
components 

1 

1/2  (length+2)  + (length+2) 
& 1 

1 


label 


Array  of  size  CALL  LEVEL# 
Call  Stack. 


See 


See  Arguments. 


Array  of  size  CALL  LEVEL# 
See  Call  Stack. 
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ARG_STACK 

ARG_STACK_PTR 

ARG_TYPE 

ARG# 

ARGFIX 

ARGNO 

ARGPOINT 

ARGTYPE 

ARITH_BY_MODE 

ARITH_OP 

ARRAY_FLAG 

ARRAY_INDEX_MOD 

ARRAYNESS 

ARRAYPOINT 

ARRAY 2 _I NDEX_MOD 
ARRCONST 


Array  of  size  ARG_^STACK#. 
See  Arguments. 

See  Arguments. 


See  Arguments. 


Dummy  variable  used  as  an  index  in  do- 
loops  that  access  all  arguments  of  a pro- 
cedure, function  I/O  routine. 


See  Arguments. 

See  Arguments. 

See  Arguments. 

See  Arguments 
label 

See  HALMAT  operator  properties. 

A flag  indicating  that  a conditional  opera- 
tion is  occurring  during  array  processing. 
This  means  that  code  for  closing  the  loops 
set  up  for  array  processing  must  precede 
any  code  for  conditional  branches . 

label 

Number  of  array  dimensions  of  an  operand. 

Array  of  size  LASTEMP.  See 
Storage  Descriptor  Stack. 


label 


The  product  of  AREASAVE  and  an  offset 
computed  from  the  array  dimensions  of 
an  operand.  The  offset  is  computed  as 
follows:  (Ni  is  the  i"^^  array  dimension)  . 

# Dimensions  Offset 


0 

1 

2 

3 


0 

-1 

(-1N2)-1 
( (-1  N2)  - 1 N3) 


1 
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ASIZ 


ASNCTR 


ASSEMBLER  CODE 


ASSIGN_FLAG 
ASSIGN  HEAD 


See  HALMAT  decoding. 

See  Vector-Matrix. 

1 if  assembler  code  listing  of  program  that 
IS  being  compiled  has  been  requested,  0 
otherwise. 

See  Symbol  Table  SYT_PLAGS. 

Array  of  size  5.  Used  for  scalar  and 
integer  assignment.  The  entries  are  indexed 
u ^n:d  each  entry  points  to 

the  first  entry  in  a chain  of  operands 
of  the  same  selectype  that  are  to  be 
assigned  with  the  same  value. 


ASSIGN_OR_NAME  See  Symbol  Table  SYT  FLAGS. 

ASSIGN ^PARM_FLAG  See  Vector— Matrix . 


ASSIGN  START 


ASSIGN  TYPES 


AUTO  FLAG 


Array  of  size  4;  initial  (0,6,12,18,24).' 

Used  for  integer  and  scalar  assignment  to  de- 
terminate the  order  in  which  conversion  should  be 
done.  The  entries  are  indexed  by  the  SELECTYPE 
of  the  right  side  of  the  assignment.  They 
provide  an  index  into  ASSIGN_TYPES . 

Array  of  size  23;  initialized.  Used  for 
integer  and  scalar  assignment.  ASSIGN  START 
provides  an  index  into  this  array  which  is 
then  used  to  determine  in  what  order  any 
conversions  necessary  to  carry  out  assign- 
ment should  be  made. 

See  Symbol  Table  SYT  FLAGS. 


AVAILABLE_FROM  STORAGE  label 


BACKUP  REG 


BALR 


Current  base  register.  (Used  in  generating 
obnect  code.)  ^ 

Array  of  size  STACK_SIZE  . 

See  Indirect  Stack. 

Initial  ("45").  Opcode  used  for  code 
generation. 

Initial  ("05") . Opcode  used  for  code 
generation. 
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BASE 


BCRE 


BCTR 


BD  BASE  REGS 


Array  of  size  STACK_SIZE  . 

See  Indirect  Stack 

Initial  ("47*')  . Opcode  used  for  code 
generation. 

Initial  ("87")  . Opcode  used  for  code 
generation. 

Initial  ("07").  Opcode  used  for  code 
generation. 

Initial  ("OF")  . Opcode  used  for  code 
generation. 

Initial  ("46").  Opcode  used  for  code 
generation. 

Initial  ("06")  . Opcode  used  for  code 
generation. 

The  location  in  DATABASE  of  the  values 
of  the  virtual  base  registers. 


BEGIN  SF  TABLE 


BIFCLASS 


BIPNAMES 


label 

Array  of  size  BIFNUM;  initialized.  An  array 
giving  the  class  of  each  built-in  function. 
The  classes  are; 

0 Arithmetic  Functions 

1 Algebraic  Functions 

2 Vector-Matrix  Function 

3 Character  Functions 

4 Supervisor  Built-in  Functions 

Character  array;  initialized.  An  array 

used  for  generating  the  names  of  library 
or  external  routines  that  perform  built- 
in  functions.  The  names  in  this  array 
are  prefixed  to  specify  precision,  argument 
type. 
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BIPOPCODE 


BIFREG 


BIPTYPE 

BIGHTS 

BIT_MASK 

BIT_SHIPT 

BIT_STORE 

BIT__SUBSCRIPT 

BITESIZE 

BITS 

BLANK 

BLOCK  CLASS 


BLOCK_CLOSE 
BLOCK  OPEN 


Array  of  size  BIPNUM  initialized.  This  array 
gives  the  index  of  the  built-in  function 
name  in  BIFNAMES. 

Array  of  size  3;  initial  (8,10,5,6).  Used 
to  determine  what  registers  to  use  for 
arguments  of  arithmetic  built-in  function. 
Registers  8 and  10  are  used  for  scalar 
operands;  registers  5 and  6 are  used 
otherwise. 

Array  of  size  BIPNUM;  initialized.  This  array 
gives  the  type  of  each  built-in  function. 

Array  of  size  TYP_SIZE;.  ^ 
initialized.  The  number  of  halfwords 
occupied  by  an  item  of  each  data  type. 

label 

label 

label 

label 

Initial  (16) . 16  bits.  Used  to  compute 

storage. 

Initial  (1) . The  halfword  bit  operand 
type . 

Initial  ( ' ' ) . 

Array  of  size  (11) ; initialized.  Array  with 
an  entry  for  each  symbol  table  class  with 
value  1 if  class  is  a label  name,  and  0 
if  it  is  a data  name. 

label 

label 
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BOOLEAN 


BOUNDARY  ALIGN 


BYTES  REMAINING 


CALL  CONTEXT 


CALL  LEVEL 


CALL# 


CARD  IMAGE 


CASE  2 SET 


CCREG 


CHAR 


CHAR  CALL 


CHAR  CONVERT 


CHAR  INDEX 


CHAR  SUBSCRIPT 


Initial  (1).  The  halfword  bit  operand  type. 


label 


The  number  of  character  positions  left  in 
the  current  card. 


Array  of  size  CALL_LEVEL#. 
See  Call  Stack. 


The  current  nest  level;  0 for  procedure 
calls  and  ^ 1 for  nested  function  invoca- 
tions. 


Array  of  size  PROC#. 

See  Block  Definition  Table. 


See  COLUMN. 


Array  of  size  VMOPSIZE  used  by  VMCALL  to 
determine  which  operand's  dimensions  contain 
all  necessary  information  for  the  subroutine 
call. 


A number  describing  the  side  effects  of 
an  instruction  on  the  condition  code; 


CCREG<0  indicates  a logical  condition  code 
CCREG=0  indicates  the  condition  code  is 
no  longer  valid. 

CCREG>0  indicates  the  register  affecting 
the  condition  code . 


Initial  ("49").  Opcode  used  for  code 
generation. 


Initial  (2) . The  character  operand 
type. 


label 


label 


label 


label 


CHARACTER  TERMINAL  label 


CHARLIT 


Initial  (18).  An  intermediate  output 
code  qualifer  referring  to  the  character 
literal  pool. 
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CHARSTRING 


Used  to  build  up  part  of  a line  of 
assembler  code  for  output  as  the 
assembler  listing. 


CHARSUBBIT 


Initial  (18).  The  operand  type  for 
character  strings  referenced  as  bit 
strings. 


CHARTYPE  See  HALMAT  Operand  types. 

CHEGK_ADDR_NEST  label 

CHECK_AGGREGATE_ASSIGN  label 
CHECK_ASSIGN  label 

CHECK_ASSIGN_PARM  label 

CHECK  CSYM  INX  label 

label 
label 
label 
label 
label 
label 
label 


CHECK_LOCAL_SYM 

CHECK_LOCK# 

CHECK_NAME_ARG 

CHECK_REMOTE 

CHECK_SI 

CHECK_SRCE 

CHECK  SRS 


CHECK_STRUCTURE_PARM  label 
CHECK_VAC  label 

CHECK_VM_ARG_DIMS  label 
CHECKPOINT_REG  label 

CHECKSIZE  label 
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S 4 


CHI 

CLASS 

CLASS_B 

CLASS_BS 

CLASS_BX 

CLASS_D 

CLASS_DI 

CLASS_DQ 

CLASS_DU 

CLASS_E 

CLASS_EA 

CLASS_F 

CLASS_FD 

CLASS_FN 
CLASS_FT 
CLASS  PE 


INTERMETRICS  INCORPORATED 


Initial  "A9".  Opcode  used  for  code 
generation. 

See  HALMAT  decoding. 

Initial  (110) . Errors  resulting  in 
compiler  termination. 

Initial  (9) . Error  resulting  in  compiler 
termination  due  to  stack  size  limitations. 

Initial  (n) . Compiler  Error. 

Initial  (18).  Declaration  errors. 

Initial  (23) . Declaration  error: 
initialization. 

Initial  (112) . Declaration  error: 
structure  template  tree  organization. 

Initial  (100) . Declaration  error: 
undeclared  data. 

Initial  (29).  Expression  errors. 

Initial  (30) . Expression  error: 
arrayness . 

Initial  (115) . Formal  parameters  and 
arguments  error . 

Initial  (37) . Formal  parameter  and 
arguments  error  due  to  dimension  agree- 
ment. 

Initial  (38) . Formal  parameter  and 
argument , error : number  of  arguments. 

Initial  (40).  Formal  parameter  and 
argument  error:  type  agreegment. 

Initial  (95) . Program  control  and 
internal  consistance  error;  external 
templates. 
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CLASS  PF 


CLASS_QD 
CLASS_RT 
CLASS_SR 
CLASS 1_0P 

CLASS 3 OP 


■ .r 


CLBL 


Initial  (58) . Program  control  and  internal 
consisteance  error:  function  return 

expressions. 

Initial  (69) . Shaping  function  dimension 
information  error. 

Initial  (97).  Real  time  statement  error 
timing  expression. 

Initial  (76) . Subscript  usage  error:  range 
of  subscript  values. 

A flag  indicating  that  a vector-matrix 
operation  is  a Class  1 operation.  This 
class  pnly  includes  raising  a matrix  to 
the  power. 

A flag  indicating  that  a vector-matrix 
operation  is  a Class  3 operation.  Class  3 
operations  include  matrix-scalar  and  vector- 
scalar  multiplication  and  division,  vector- 
matrix  addition  and  subtraction,  vector  and 
matrix  negation,  adn  the  built-in  function 
UNIT, 

Initial  (15) . An  intermediate  code  qualifier 
indicating  the  address  of  the  beginning  of 
a data  area  containing  the  address  of  the 
beginning  of  the  code  for  each  case  in  a 
DO  CASE  statement. 


CLEAR_CALL_REGS  label 
CLEAR_NAME_SAFE  label 
CLEAR_R  label 
CLEAR_REGS  label 
CLEAR_SCOPED_REGS  label 
CLEAR  STMT  REGS  label 


I ' 
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CLOCK 


Array  of  size  2. 

CLOCK (0):  time  at  beginning  of  phase  2. 

CLOCK (1);  time  at  end  of  phase  2 set  up. 

CLOCK (2):  time  at  end  of  phase  2 generation, 


CMPUNIT  ID 


A user  supplied  number  used  to  identify 
a compilation  unit. 


CNOP 


Initial  (51) . An  intermediate  code  qualifier 
indicating  how  to  align  data  areas  to 
proper  boundaries. 


CODE 


Array  of  size  CODE_SIZE. 

Array  containing  the  block  of  intermediate 
code  which  is  currently  being  referenced 
or  modified. 


CODE  BASE 


The  lowest  line  from  the  intermediate  code 
file  in  CODE. 


CODE  BLK 


The  block  of  the  intermediate  output  code 
file  which  is  currently  in  CODE. 


:ODE  END 


Initial  (47) . An  intermediate  code  qualifier 
indicating  the  end  of  a compilation  unit. 


CODE  LIM 


The  highest  line  from  the  intermediate  code 
file  in  CODE. 


CODE  LINE 


The  line  of  intermediate  code  that  is 
currently  being  referenced,  added,  or 
modified.  CODE_LINE  is  an  absolute  value 
relative  to  all  the  lines  of  code  generated, 
it  is  not  a pointer  into  CODE. 


CODE  LISTING  REQUESTED 


A compiler  option:  1 if  code  listing  is 

requested,  0 otherwise. 


CODE  MAX 


the  maximum  number  of  lines  of  code  in  the 
intermediate  output  file. 


CODEFILE 


See  HALMAT  decoding. 


COLON 


Initial  ( : ) , 
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COLUMN (OBJECT  GENERATOR) 


An  array  used  to  set  up  card  images  to  be 
output.  CARDIMAGE(I)  are  the  four  bytes 
of  COLUMN  starting  at  COLUMN (4* (I-l) ) . 
DUMMY_CHAR  is  built  to  be  a descriptor 
pointing  to  column  so  that  COLUMN  can  be 
output  as  a normal  character  string. 


COLUMN (otherwise)  See  Indirect  Stack. 


COMMA 


Initial  (,), 


COMMON_SYTSIZES 

COMMUTATIVE 

COMMUTFM 


Array  of  size  #COM_SYTSIZES  used  by  storage  mgt 
for  dynamic  allocation. 

See  HALMAT  operator  properties, 
label 


COMPACT_CODE  A compiler  option. 


COMPARE  Initial  "OS".  An  Operator  Code  for  compari- 

son used  as  an  index  into  the  table  of 
properties  of  operators. 


COMPARE_STRUCTURE 

COMPILER 

COMPOOL__LABEL 

CONDITION 

CONST 


label 

A character  string  indicating  the  compiler 
type. 

See  Symbol  Table  SYT_TYPE. 

See  HALMAT  Operator  Properties . 

See  Indirect  Stack. 


CONSTANT_CTR 

CONSTANT_FLAG 

CONSTANT_HEAD 

CONSTANT  PTR 


Pointer  to  the  constant  table  entry  for 
the  last  literal  put  into  the  constant  area. 

See  Symbol  Table  SYT_FLAGS. 

For  each  opmode,  a pointer  to  the  beginning 
of  the  last  of  literal  pool  entries  for  that 
opmode . 

Array  of  size  CONST_LIM. 

In  GENERATE,  a pointer  to  the  next  constant 
of  the  same  opmode  in  the  constant  area. 
GENERATE_CONSTANTS  overwrites  the  pointer 
with  the  actual  address  of  the  constant. 
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CONSTANTS 


COPT 

COPY 

COSTBASE 

COUNT#GETL 

CS 

CSE_FLAG 

CSECT 


CSIZ 

CSTRING 

CSYM 


CTON 

CTR 


Array  of  size  CONST_LIM  ■ 

The  value  of  the  literals  in  the  constant 
area.  For  double  precision  literals, 
the  i^h  and  i+1®'^  entries  together  contain 
the  value. 

See  Indirect  Stack. 

See  Indirect  Stack. 


label 

A flag  indicating  whether  or  not  a HALMAT 
instruction  is  a common  subexpression. 

Initial  (38) . An  intermediate  code  opcode 
which  switches  processing  from,  one  control 
section  to  another  or  switch  origins  within  ( 

control  sections. 

See  HALMAT  decoding. 

Initial  (46) . An  intermediate  code  opcode 
indicating  character  data. 

Initial  (7).  An  indirect  stack  entry  form 
indicating  a symbolic  reference  which  is 
referenced  by  its  own  base  and  displacement 
rather  than  letting  these  values  be  computed 
dynamically  during  object  code  generation. 

label 

See  HALMAT  decoding. 
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CTRSET 

CURCBLK 

CURLBLK 

CURRENT_ESDID 

CVFL 

CVFX 

CVTTYPE 

D 

DADDR 

DATA_LIST 

DATA_WIDTH 

DATABASE 

DATABLE 

DATALIMIT 

INTERMETRICS  INCORPORATED 


Array  of  size  VMOPSIZE  used  by  VMCALL  to 
break  the  possible  opcodes  into  four  classes 
for  further  processing. 


See  HALMAT  decoding. 

The  literal  file 'block  that  is  currently 
being  referenced. 

The  CSECT  for  which  object  code  is 
currently  being  generated. 

Initial  ("3F") . Opcode  used  for  code 
generation. 

Initial  ("IF").  Opcode  used  for  code 
generation. 

No  code  is  required  to  convert  between  types 
if  their  CVTTYPEs  are  the  same.  See  HALMAi 
"operand  types  and  properties  . 

The  displacement  used  in  base-displacement 
addressing  during  object  code  generation. 


Initial  (40).  Data  address;  an  intermediate 
code  opcode  indicating  an  address  constant 
which  refers  to  a specified  absolute 
position  within  a CSECT. 


initial  (49) . An  intermediate  code  opcode 
indicating  local  code  list  control. 


The  data  width  of  a vector  or  matrix 
element  in  halfwords;  2 for  single  precision 
operands,  and  4 for  double  precision 
operands . 


Array  of  size  1.  DATABASE (0)  is  the  ESpiD 
number  of  the  CSECT  which  contains  static 
data  without  the  REMOTE  attribute;  DATABASE (1) 
initially  indicates  the  existence  (1)  of  _ 
remote  data.  If  there  is  remote  data,_^DATA 
BASE(l)  Will  be  set  to  the  ESDID  of  th<=  „S£.wT 
a a 4- a hv  SETUP  REMOTE  DATA. 


Initial  (39) . An  intermediate  code  opcode 
used  to  indicate  the  definition  of  one  or 
more  full  words  of  data. 

The  last  CSECT  number  assigned  for  REMOTE 

data  for  EXTERNAL  templates. 


BSBODUCBttKY  OJ  TO 

PAGE  IS  PUUtt 
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DATATYPE 

Extracts  essential  information  about  a type 
(e.g.  double  and  single  precision  types  have 
same  DATATYPE,  EVENT  and  BOOLEAN  have  same 
DATATYPE.  See  HALMAT  operand  types. 

DECK_REQUESTED 

A compiler  option:  1 if  deck  requested, 

0 otherwise. 

DECLMODE 

A flag  which  is  set  at  the  beginning 
of  a block,  and  reset  to  zero  at  the 
end  of  the  declarations  for  the  block. 
This  is  to  ensure  that  any  code  generated 
during  variable  ihitialization  is  not 
intermixed  with  the  data. 

DECODEPIP 

label 

DECODEPOP 

label 

DEFINE  JLABEL 

label 

DEFINED_BLOCK 

See  Symbol  Table  SYT  FLAGS. 

DEFINED_LABEL 

See  Symbol  Table  SYT  FLAGS. 

DEL 

Array  of  size  STACK  SIZE. 
See  Indirect  Stack. 

DELTA 

Initial  (35).  An  intermediate  code  opcode 
indicating  a value  used  to  modify  the 
address  of  the  following  instruction. 

DENSE_FLAG 

See  Symbol  Table  SYT_FLAGS. 

DENSEADDR 

The  address  in  the  data  CSECT  of  a data 
item  requiring  dense  initialization. 

DENSESHIFT 

The  number  of  bit  positions  an  initial 
value  for  a bit  data  item  with  dense 
initialization  must  be  shifted  so  that 
it  is  at  the  proper  bit  position  in  its 
location  in  core. 

DENSETYPE 

The  data  type  of  a data  item  requiring 
dense  initialization. 

i DENSEVAL 

The  initial  values  of  the  data  items 
requiring  dense  initialization  that  are 
to  be  stored  in  the  same  word  after  the 
initial  values  have  been  shifted  appropriately 
so  that  they  are  at  the  proper  positions . 
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DESC 


Literally  'STRING';  magic  XPL  conversion 
function  for  descriptors. 


DESCENDENT 


label 


DESTRUCTIVE 


DIAGNOSTICS 


See  HALMAT  Operator  properties. 

1 if  diagnostics  are  required,  0 other- 
wise. 


DIME IX 


D INTEGER 


DISP 


label 

Initial  (14) . Double  precision  integer 
operand  type . 

Array  of  size  STACK_SIZE  . 

See  Indirect  Stack. 


DO  ASSIGNMENT 


label 


DOBASE 


See  DO  LOop  Descriptor  Declarations, 


DOBLK 


DOCASECTR 


DOCLOSE 


DOCOPY 


DOCTR 


DOFORCLBL 


DOFORFINAL 


DOFORINCR 


Array  of  size  DOLOOPS  . 

See  array  Do  Loop  Declarations. 

See  Do  Loop  Descriptor  Declarations , 

label 

Array  of  size  DONEST , 

See  Array  Do  Loop  Declarations. 

Array  of  size  DONEST. 

See  Array  Do  Loop  Declarations . 

See  Do  Loop  Descriptor  Declarations. 

Array  of  size  DOSIZE. 

See  Do  Loop  Descriptor  Declarations. 

Array  of  size  DOSIZE. 

See  Do  Loop  Descriptor  Declarations. 
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DOFORM 


Array  of  size  DONEST. 

See  Array  Do  Loop  Declarations . 


DOFOROP 

Array  of  size  DOSIZE. 

See  Do  Loop  Descriptor  Declarations. 

DOFORREG 

Array  of  size  DOSIZE . 

See  Do  Loop  Descriptor  Declarations. 

DOFORSETUP 

label 

DOINDEX 

Array  of  size  DOLOOPS . 

Set  Array  Do  Loop  Declarations. 

DOINX 

See  Do  Loop  Descriptor  Declarations. 

DOLABEL 

DOLBL 

DELEVEL 

DOMOVE 


Array  of  size  DOLOOPS. 

See  Array  Do  Loop  Declarations. 

Array  of  size  DOSIZE  . 

See  Do  Loop  Descriptor  Declarations. 

The  number  of  nested  do  loops  at  any 
point  during  code  generation.  See 
Do  Loop  Descriptor  Declarations. 

label 


DOOPEN 


label 


DOPTR 


DOPTR# 

DORANGE 


DOSTEP  Array  of  size  DOLOOPS. 

See  Array  Do  Loop  Declarations. 

DOTEMP  Array  of  size  DOSIZE. 

See  Do  Loop  Descriptor  Declarations. 

DOTOT  Array  of  size  DONEST. 

See  Array  Do  Loop  Declarations . 
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Array  of  size  DONEST. 

See  Array  Do  Loop  Declarations. 

See  Array  Do  Loop  Declarations. 

Array  of  size  DOLOOPS. 

See  Array  Do  Loop  Declaration. 


DOTOT# 


DOTYPE 


DOUBLE  FLAG 


DOUBLEFLAG 


DOUNTIL 


DROP  INX 


DROP  VAR 


DROPFREESPACE 


DROPLIST 


DROPOUT 


DROP SAVE 


DROPTEMP 


DSCALAR 


DUMMY 


DUMMY  CHAR 


EMIT  ADDRESS 


EMIT  ARRAY  DO 


EMIT  BY  MODE 


EMIT  ENTRY 


Array  of  size  DOSIZE  .. 

See  Do  Loop  Descriptor  Declarations. 


See  Symbol  Table  SYT_FLAGS 


Array  of  size  DOSIZE  . 

See  Do  Loop  Descriptor  Declarations, 


label 


label 


label 


label 


label 


label 


label 


Initial  (13) . The  double  precision 
scalar  operand  type. 


A dummy  character  string  with  several  uses, 


See  COLUMN. 


DOUBLEWORD  aligned  work  area.  Used  for 
Inline  Scalar  Arithmetic. 


label 


label 


label 


label 
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EMIT  EVENT  EXPRESSION  label 


EMIT_RETURN 

label 

EMIT  WHILE_TEST 

label 

EMIT_Z ) CON 

label 

EMITADDR 

label 

EMITBFW 

label 

EMITC 

label 

EMITDELTA 

label 

EMITDENSE 

label 

EMITEVENTADDR 

label 

EMITLFW 

label 

EMI TOP 

label 

EMITP 

label 

EMITPCFADDR 

label 

EMITPDELTA 

label 

EMITPFW 

label 

EMITRR 

label 

EMITRZ 

label 

EMITSI 

label 

EMITSIOP 

label 

EMITSP 

label 

EMITSTRING 

label 

EMITW 

label 

EMITXOP 

label 
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END  SF  REPEAT 


label 


I 


'<,.lr 


ENDSCOPE_FLAG 

ENTER_CALL 

ENTER_CHAR_LIT 

ENTER_ESD 

ENTRYPOINT 

EQ 

ERR_DISP 
ERR  STACK 


See  Symbol  Table  SYT_FLAGS. 

label 

label 

label 

See  SYT_LINK1  in,  symbol  table. 

Initial  (4) . Condition  code  used  as  a 
test  for  equality  when  generating  condi 
tional  branch  instructions. 

See  Block  Definition  Table. 

See  Block  Definition  Table. 


ii 

'•1 


■ i 


1 


I 


ERRALL  Array  of  size  PROC#  . 

See  Block  Definition  Table. 

ERRALLGRP  Array  of  size  PROC#  , 

See  Block  Definition  Table. 

ERRCALL  label 

ERROR_POINT  Initial  (1) . Never  referenced. 

ERROR#  The  number  of  errors  detected  in  Phase  2 

of  compilation. 

ERRORS  label 

ERRPTR  Array  of  size  PROC#. 

See  Block  Definition  Table. 

ERRSEG  Array  of  size  PROC#. 

See  Block  Definition  Table.  In  OBJECT_ 
GENERATOR  ERRSEG (ESD)  - first  location 
for  that  ESD. 

ESD_LINK  Array  of  size  ESD_LIMIT. 

Pointers  chaining  together  ESD  table 
entries  whose  names  HASH  to  the  same  number. 


5-69 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


ESDjyiAX 

ESD_NAME 

ESD_NAME_LENGTH 

ESD_START 

ESD_TABLE 

ESD__TYPE 

EV_EXP 

EV_EXPTR 

EV_OP 

EV_PTR 

EVALUATE 

EVENT 


iNTERMETRICS  INCORPORATED  • 


Initial  (1) . The  maximum  number  of 
entries  in  the  ESD  table. 

'Array  of  size  ESD^CHAR__LIMIT . 

Packed  tables  of  ESD  names.  The 
ESD  number  can  be-  decoded  to  give  the 
array  entry  and  index  in  that  entry 
where  a name  begins. 

Array  of  size  ESD_LIMIT. 

The  length  of  each  ESD  name  in  the  ESD 
table. 

Array  of  size  HASHSIZE. 

Each  entry  is  a pointer  to  the  beginning 
of  ESD  names  that  hash  to  the  same  index. 

Character  Procedure. 

Array  of  size  ESD_LIMIT.  The  type  of  each 
entry  in  the  ESD  table,  the  types  used  by  phase 
2 are:  0 - csect 

1 - entry 

2 - external 

Array  of  size  EV_EXPTR_MAX . 

Event  Expression  Stack:  value  of  each 

entry  is : 

0 for  an  operand 

1 for  OR  operator 

2 for  NOT  operator 

3 for  AND  operator 

Pointer  to  last  entry  in  Event  Expression 
Stack  (EV_EXP) . 

Array  of  size  EV_PTR_MAX . 

Stack  of  pointers  to  indirect  stack 
entries  for  operands  of  an  event 
expression. 

Pointer  to  the  last  entry  in  Event 
Operand  Stack  (EV_OP) . 

label 

Initial  (17).  The  event  operand  type. 
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EVENT_OPERATOR 

EVIL_FLAGS 

EXAMINING 


EXCLBASE 

EXCLUSIVE_FLAG 

EXCLUSIVE# 


EXOR 


EXPONENTIAL 

EXPRESSION 

EXT_ARRAY 

EXTENT 

EXTERNAL_FLAG 

EXTOP 


label 

See  Symbol  Table  SYT_FLAGS 

Initial  (1) . Initially  1,  but  set  to 
0 if  an  error  of  severity  1 is  found  be- 
fore the  program  has  reached  the 
error  unit. 

The  CSECT  used  for  storing  exclusive 
data . 

See  Symbol  Table  SYT_FLAGS. 

The  number  of  exclusive  procedures  and 
functions.  By  bumping  the  number  by  1 each 
time  a new  exclusive  procedure  is  found,  unique 
numbers  are  generated  for  SYT_LINK1. 

Initial  ("04").  An  operator  code  for 
not  used  as  an  index  into  the  operator 
table.  The  not  operation  is  performed 
by  finding  the  exclusive  or  of  the 
operand  and  a string  of  1 ' s the  length 
of  the  operand. 

label 

label 

Array  of  size  EXT_STZE. 

Passed  from  Phase  1.  See  Symbol  Table. 

Common  Based  array.  See  Symbol  Table. 

See  Symbol  Table  SYT_FLAGS. 

A pointer  to  an  indirect  stack  entry  with 
one  of  the  following  uses: 

1)  to  represent  an  unknown  array  size, 

2)  for  additional  information  for  TO  and 
AT  partitions  in  subscripting, 

3)  to  represent  amount  of  input  or  output 
data  in  file  I/O, 

4)  a pointer  to  temporary  storage  needed 
for  real  time  operators,  and 

5)  a pointer  to  temporary  storage  for 
matrix  inversion. 
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EXTRA_LISTiNG  A compiler  option. 


EXTRABIT 


See  HALMAT  operand  types.  A bit  operand  type 
used  when  performing  a SUBBIT  operation  on  a 
double  word  item. 


EXTSYM 

EZ 

F 

FILECONTROL 


Initial  (22).  External  symbol:  1) 

one  of  the  possible  forms  of  an  Indirect 
Stack  entry,  2)  used  as  flag  to  the 
code  emitting  routines  to  ensure  RLDs 
are  generated  if  an  external  symbol  is 
referenced,  3)  used  as  an  intermediate 
code  qualifier  to  indicate  an  external 
symbol . 

Initial  (4).  Condition  code.  A test  for 
zero,  used  in  generating  branch  instructions. 

The  I field  of  an  RS  format  instruction 
with  the  indexed  addressing  mode. 

Names  of  FILE  I/O  library  routines. 


i' 


FIND AC 
FIRST_INST 

FIRSTLABEL 

FIRSTREMOTE 


FIRSTSTMT# 

FIX_INTLBL 

FIX_LABEL 

FIX  STRUCT  INX 


label 

Set  to  1 at  the  beginning  of  every  statement, 
and  then  back  to  zero  after  the  first  instruc- 
tion of  the  statement  has  been  generated. 

A statement  number  generated  by  Phase  2 to 
use  as  a label  for  the  destination  of 
branch  instructions. 

A pointer  to  the  symbol  table  entry  for  the 
first  REMOTE  variable  declared.  The 
remote  variables  are  chained  together  by 
SYT_LINK2. 

The  statement  number  generated  in  Phase  1 
for  the  first  HAL/S  source  statement  not 
contained  in  an  EXTERNAL  TEMPLATE  block. 

label 

label 

label 

REPRODUCIBILITY  OP  THE 
ORIGINAL  PAGE  IS  POOR 
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^ Jr 


FIX  TERM  INK 


label 


FIXARGl 

PIXARG2 

FIXARG3 

FIXLIT 

FIXONE 

FL_NO_MAX 

FLNO 

FORCE_ACCUMULATOR 
FORCE_ADDRESS 
FORCE_ARRAY_S I Z E 
FORCE_BY_MODE 
FORM 

FORM_CHARNAME 

FORMJVMNAME 

FORMAT 

FORMATJOPERANDS 

FREE_ARRAYNESS 

FREE_TEMPORARY 

FRO 
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See  Arguments . 

See  Arguments. 

See  Arguments. 

Initial  (10).  An  intermediate  code 
qualifier  referring  to  the  fullword 
literal  pool. 

Never  referenced. 

Value  passed  from  Phase  1. 

Initial  (19) . Internal  flow  of  control 
label.  One  of  the  forms  of  an  indirect 
stack  entry  and  one  of  the  qualifiers 
used  in  the  intermediate  output  code. 

label 

label 

label 

label 

Array  of  size  STACK_SIZE. 

See  Indirect  Stack. 

Character  Procedure. 

label 

Character  Procedure. 

label 

label 

label 

Initial  (8).  Floating  pointer  register  0. 

Used  to  pass  scalar  paraemters,  1 to 
return  scalar  function  results , and  as  a 
floating  point  accumulator. 
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FRl 


FR2 


FR4 

FR6 

FR7 


Initial  (9).  Floating  pointer  register  1. 
Used  to  pass  scalar  parameters,  to  return 
scalar  function  results,  and  as  a floating 
point  accumulator. 

Initial  (10).  Floating  point  register  2. 
Used  to  pass  scalar  paraemters  and  as  a 
floating  point  accumulator. 

Initial  (12).  Floating  point  register  4. 
Used ;±o  pass  scalar  parameters  and  as  a 
floating  point  accumulator. 

Initial  (14).  Floating  point  register  6. 
Used  as  a floating  point  accumulator. 

Initial  (15).  Floating  point  register  7. 
Used  as  a floating  point  accumulator. 


FSIMBASE 

FULLBIT 
FULLTEMP 
FUNC_CLASS 
FUNC_LEVEL 

GEN_ARRAY_TEMP 
GEN_ST0RE  label 

GENCALL  label 

GENERATE  label 

GENERATE_CONSTANTS  label 

GENERATING  Initial  (1).  A flag  used  to  indicate 

that  code  generation  is  occurring. 

GENEVENTADDR  label 
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Initial  (9).  The  fullword  bit  operand  type. 

Maximum  temporary  storage  stack  size. 

See  Symbol  Table  SYT_CLASS. 

The  nest  level  of  a function  or  of  an 
inline  function  invocation. 


GENLIBCALL 


GEN3I 

GENSVC 

GENSVCADDR 

GET_ARRAYSIZE 

GET_ASIZ 

GET_CHAR_OPERANDS 

GET_CODE 

GET_CSIZ 

GET_EVENT_OPERANDS 

GET_FUNC_RESULT 

GET_INIT_LIT 

GET_INST_R_X 

GET_INTEGER_LITERAL 

GET_LIT_ONE 

GET_LITERAL 

GET_OPERAND 

GET_OPERANDS 

GET_R 

GET_STACK_ENTRY 

GET_STRUCTOP 

GET_SUBSCRIPT 

GET_VAC 

GET_VM_TEMP 

GETARRAY# 

GETARRAYDIM 


> label 
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GETFREESPACE 


label 


GETINTLBL 

GETINVTEMP 

GETLABEL 

GETSTATNO 

GETSTMTLBL 

GETSTRUCT# 


label 

label 

label 

label 

label 

label 

Initial  (5).  Condition  code.  Used  as 
a test  for  greater  than  or  equal  to  when 
generating  branch  instructions. 

Initial  (1) . Condition  code.  Used  as 
a test  for  greater  than  when  generating 
branch  instructions. 


GUARANTEE_ADDRES SABLE  label 


HADDR 


HALFMAX 


HALFWORDSIZE 


HALMAT  REQUESTED 


HASH 


HEX_LOCCTR 

HEXCODES 


Initial  (53) . An  intermediate  code 
qualifier  which  indicates  a halfword 
address  constant. 

Initial  ("7FFF") . Literals  whose 
absolute  value  are  greater  than  this 
are  double  precision. 

Initial  (16).  The  number  of  bits  in  a 
halfword. 

A compiler  option.  1 if  a HALMAT  listing 
is  requested,  0 otherwise. 

label 

Character  procedure . 

Character  procedure . 

Initial  ('0123456789ABCDEF;).  A string 
used  to  convert  internal  binary  to 
external  hex  notation. 
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lA  Indirect  Address  field  of  RS  format. 

AP-101  instrction.  with  indexed  addres- 
sing mode.  This  field  specifies  indirect 
addressing  when  one. 

lAL  Initial  ("4F") . Opcode  used  for  code 

generation. 

IDENT_DISJOING_CHECK  label 

IGNORE_FLAG  See  Symbol  Table  SYT_FLAGS . 

ILBL  Initial  (37).  Internal  label.  An 

intermediate  code  opcode  indicating  a 
flow  of  control  label. 

IMD  Initial  (6) . A HALMAT  operand  qualifier 

and  indirect  stack  entry  form  specifying 
an  actual  numerical  value. 

INCORPORATE  label 

IND_CALL_LAB  See  Symbol  Table  SYT_TYPE. 

IND_PTR  Initial  ("3F"). 

IND_STMT_LAB  Initial  ("41")  . Indirect  statement  label. 

INDEX  1)  An  indirect  stack  entry  used  as  an 

index  variable  for  setting  up  shaping 
function  repeats. 

2)  Pointer  to  a symbol  table  entry  for  a 
block  name. 

3)  Number  of  arguments  in  a percent 
macro. 

INDEXING  Array  of  size  REG_NUM  . 

Initial  (0,1,1,1,1,1,1,1) . See  Register 
Table. 

INDEXNEST  Array  of  size  PROC#.  See 

Block  Definition  Table. 

INDIRECT  label 

INDIRECTION  Array  of  size  (3).  Initial  ( ' @ , 

'#','§#').  Indirection  characters 
used  in  generating  instruction  mnemonics 
for  assembler  code  listing. 
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INFO 

INITADDR 

INITAGAIN 

INITAUTO 

INITBASE 

INITBLK 

INITCTR 

INITDECR 


INITDENSE 

INITIALIZE 

INTERMETRIGS  INCORPORATED 


A dummy  character  string  used  while 
generating  a line  of  assembler  code  for 
output . 

The  address  relative  to  INITBASE  of  the  data 
structure  to  be  initialized  if  it  requires 
static  initialization;  0 if  the  data  item  re- 
quires autom.atic  initialization.  Notice 
that  an  offset  from  INITADDR  must  be  added 
to  get  the  individual  item  to  be  initialized. 


Initially  0.  The  number  of  consecutive 
data  items  of  the  same  type  starting  at 
a given  offset  that  are  to  be  initialized 
from  the  same  intial  list.  The  initial 
values  of  these  items  are  stored  in  consecu- 
tive entries  in  the  literal  table. 

INITAGAIN  is  decremented  as  each  value  is 
assigned  to  a data  item. 

1 if  variable  requiring  initialization  is 
automatic,  0 if  it  is  static. 

DATABASE(O)  if  variable  requiring  initial- 
ization does  not  have  the  remote  attribute,  . 
DATABASE (1)  if  it  does. 

See  HALMAT. 

See  HALMAT. 

The  offset  of  the  parent  node  of  a 
structure  terminal  item  that  is  being 
initialized.  The  offset  is  in  terms  of 
the  number  of  preceding  elements  in  the 
structure.  INITDECR  is  necessary  since 
INITINCR  gives  an  offset  for  the  terminal 
node  relative  to  the  structure's  beginning, 
but  structure  addressing  is  relative  to  the 
parent  node,  INITINCR-  INITDECR  is  the  off- 
set relative  to  the  parent  node. 

1 if  variable  requires  dense  initialization, 
0 otherwise. 

label 
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INITINCR 


INITINX 

INITLITMOD 


INITMOD 

INITMULT 

INITOP 

INITREL 

INITREPT 


INITRESET 


When  handling  a list  of  initial  values,  INITINCR 
counts  the  number  of  items  in  the  "natural 
sequence"  (ref,  language  spec,  5,5),  This 
value  can  be  used  either  directly  or  indirectly 
(using  STRUCTURE_WALK)  to  compute  the  address 
of  the  item  to  be  initialized. 

The  index  register  associated  with  the 
variable  being  initialized, 

(Ref.  360  Compiler  Spec,  A, 1,9, 3),  When  "repeat" 
is  non-zero,  the'  initial  values  are  in  consecutive 
locations  in  the  LITeral  table,  INITLITMOD  is 
used  to  index  the  base  address  given  in  the  HALMAT 
operand  word  so  that  consecutive  literals  can 
be  extracted  without  requiring  a separate 
initialization  instruction  for  each  element. 

The  storage  space  occupied  by  a structure; 
used  as  an  offset  when  computing  the 
address  of  a data  item  in  a structure 
with  several  copies  that  is  being  initial- 
ized. 

If  INITTYPE  is  structure  then  1,  otherwise, 
the  data  width  of  the  operand  type  in  half 
words , 


A pointer  to  the  symbol  table  entry  of  the 
data  item  being  initialized. 

Array  of  size  INITMAX  , This 
array  saves  the  value  of  INITINCR  at  the 
beginning  of  each  nest  level  of  initializ- 
tion  repetition  specification. 

Array  of  size  INITMAX  , The 
number  of  repetitions  of  the  initial  list 
for  a given  initialization  nest  level  that 
must  still  be  made. 

Saves  the  value  of  INITINCR  due  to  initial- 
izing lists  with  a repeat  factor,  so  that 
INITINCR  can  be  used  to  index  element  by 
element  initializations  of  members  of 
the  initial  list. 
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INITSTART 


INITSTEP 

INITSTRUCT 

INITTYPE 

INITWAL'K 

INL 

INLINE_RESULT 

INSMOD 

INST 

INSTRUCTION 

INTEGER 

INTEGER_DIVIDE 
INTEGER_MULTIPLY 
INTEGERI ZABLE 
INTRINSIC 


INTERMETRICS  INCORPORATED  • 701 


The  address  in  INITBASE  of  a structure  that 
requires  static  initialization. 

Array  of  size  INITMAX  . 

The  number  of  values  on  the  repetition 
list  for  a given  initialization  nest 
level . 

1 if  the  item  being  initialized  is  a 
structure,  0 if  it  is  not. 

The  type  of  the  data  item  being  initialized. 

A counter  used  while  walking  through  a 
structure  to  find  the  terminal  element  that 
is  being  initialized.  The  purpose  of  the 
walk  is  to  find  the  offset  of  the  terminal 
element's  parent  node. 

See  HALMAT  decoding. 

Pointer  to  an  indirect  stack  entry 
representing  an  inline  function  result. 

Instruction  modifier. 

The  opcode  of  an  instruction.  Used  to 
index  the  AP-101  instruction  array  to  get 
the  corresponding  AP-101  opcode. 

Character  procedure. 

Initial  (16) . The  single  precision  integer 
operand  type . 

label 

label 

label 

label 
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INTSCA 
I NX 

INX_CON 

INX_MUL 

INX_OK 

INX_SHIFT 

INXMOD 

lOCONTROL 

lODEV 


INTERMETRICS  INCORPORATED 


Initial  (3).  The  PACKTYPE  of  the  integer 
and  scalar  operand  types. 

Array  of  size  STACK_SIZE. 

See  Indirect  Stack. 

Array  of  size  STACK_SIZE  . 

See  Indirect  Stack. 

Array  of  size  STACK_SIZE. 

See  Indirect  Stack. 

See  Vector-Matrix. 

Array  of  size  STACK_SIZE  . 

See  Indirect  Stack. 

Used  for  array  and  structure  subscripting. 
A pointer  to  the  indirect  stack  entry  set 
up  for  the  index  variable  for  the  do  loop 
generated  to  process  a subscript. 

Array  of  size  (5),  initial  (•  'TAB', 

' COLUMN ' , - ' SKIP ' , 'LINE ' , 'PAGE ' ) . Used 
to  generate  a library  call  to  the  routine 
whose  index  in  the  array  corresponds  to 
ARG_TYPE  of  the  arguments  of  an  I/O 
Reference. 

Array  of  size  (9) , COMMON. 
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lOINIT 

lOMODE 

I TYPES 

IX 

IXl 

i"' 

1X2 

KIN 

KNOWN_SYM 

L 

LA 

; i ' 

INTERMETRICS  INCORPORATED 


label 

The  type  of  I/O  in  an  I/O  routine 
invocation;  0 for  read,  1 for  write, 


Array  of  size  (4),  initial  ('B',  'H',  'I', 
'E',  'D').  Used  for  generating  calls  to 
the  library  routine  corresponding  to  the 
OPMODE  of  the  arguments,  by  concatenating 
the  letter  whose  index  corresponds  to  the 
opmode  with  the  library  routine  name. 

1)  The  index  field  of  RS  format  AP-101 
instructions  with  indirect  addressing 
mode. 

2)  The  second  register  operand  of  RR  format 
AP-101  instructions. 

1)  Pointer  used  for  searching  temporary 
storage  stack. 

2)  Dummy  variable  used  while  generating 
program  names. 

3)  Dummy  variable  used  while  allocating 
structure  templates. 

4)  Do  loop  index. 

1)  Pointer  used  for  searching  temporary 
storage  stack . 

2)  Dummy  variable  used  while  generating 
program  names. 

3)  Dummy  variable  used  while  allocating 
structure  templates. 

Pointer  to  symbol  table  entries  for 
structure  nodes  used  when  walking  through 
a structure. 

label 

Initial  ("58").  Opcode  used  in  code 
generation. 

Initial  ("61").  Opcode  used  in  code 
generation. 
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i 


LABEL  ARRAY 


LABEL  CLASS 


BASED.  The  statement  number  generated 
by  Phase  2 that  is  associated  with  each 
internal  flow  number. 

See  Symbol  Table  SYT  CLASS. 


LABELSIZE 

LADDR 

LASTBASE 

LASTLABEL 

LASTREMOTE 

LASTRESULT 

LASTSTMT# 

LATCH_FLAG 

LBL 

LCR 

LEFT_DISJOINT 
LEFT  NSEC 


Number  of  internal  flow  labels. 

Initial  (42) . The  intermediate  code  op- 
code for  an  address  constant  which  points 
to  a literal  pool  entry. 

Array  of  size  PROC# . See 
Block  Definition  Table. 

Array  of  size  PROC# . See 
Block  Definition  Table. 

Pointer  to  the  symbol  table  entry  for  the 
last  REMOTE  variable  declared. 

A pointer  to  the  indirect  stack  entry  for 
a library  routine  or  built-in  function 
reuslt. 

The  last  statement  number  generated  in 
Phase  1 for  a HAL/S  source  program. 

See  Symbol  Table  SYT_FLAGS. 

Initial  (18).  An  indirect  stack  entry 
form  and  intermediate  code  qualifier  for  a 
user  defined  label. 

Initial  (13) . An  opcode  used  for  code  gen- 
eration. 

See  Vector-Matrix. 

See  Vector-Matrix. 


LEFTBRACKET 

LEFTOP 

LFLI 


LFXI 


Initial  ('('). 

See  HALMAT . 

Initial  ("03").  Opcode  used  for  code 
generation. 

Initial  ("02").  Opcode  used  for  code 
generation. 
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LH 

LHI 

LHS 

LHSPTR 

LIBNAME 

LINE# 

LINKREG 

LIT 

LIT_CHAR 

LIT_CHAR_ADDR 

LIT_CHAR_LEFT 

LITERAL 

LITLIM 

LITORG 

LITTYTPE 

LITTYPSET 

LITl 

LIT2 

INTERMETRICS  INCORPORATED  • 


Initial  ("48").  . An  opcode  used  for 
code  generation. 

Initial  ("A8”).  An  opcode  used  for 
code  generation. 

The  opcode  field  of  an  intermediate 
code  output  word. 

See  HALMAT 

Character  procedure. 

A statement  number  for  a line  of  HAL/S 
source  code  generated  in  Phase  1. 

See  Runtime  Stack  Frame. 

Initial  (5) . A HALMAT  operand  qualifier 
and  indirect  stack  entry  form  for  a 
literal.  (See  Literal  Table.). 

COMMON  BASED.  See  Literal  Table. 

Beginning  of  free  area  in  the  storage 
for  character  string  literals . 

Area  left  in  the  storage  for  character 
string  literals. 

label 

The  limit  of  the  page  of  the  literal 
file  that  is  currently  being  read. 

The  beginning  of  the  page  of  the  literal 
file  that  is  currently  being  read. 

The  type  of  literals  used  with  a HALMAT 
instruction. 

Array  of  size  (12),  initial  (6). 

COMMON  BASE,  See  Literal  Table. 

COMMON  BASE.  See  Literal  Table. 


5-84 

701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


V, rrs'4'wV 


MESSAGE 


MH 

MHI 

MIH 

MIN 

MINUS 

MIX_ASSEMBLE 
MOD_GET_OPERAND 
MODE  MOD 


A variable  used  for  building  a line  of 
assembler  code  for  an  assembler  listing. 

Initial  ("4C").  An  opcode  used  in  code 
generation. 

Initial  ("AC”) . An  opcode  used  in  code 
generation. 

Initial  ("4E").  An  opcode  used  in  code 
generation. 

label 

See  HALMAT  Operator  properties. 

label 

label 

Array.  A number  added  to  the  basic  opcode 
for  one  of  the  operator  codes*  (given  by 
ARITH__OPS)  to  generate  the  appropriate 
variable  of  an  instruction. 


MOVE_STRUTURE 

label 

MOVEREG 

label 

MR 

Initial  ("1C"), 
generation. 

Opcode  used 

for 

code 

MSTH 

Initial  ("BA"), 
generation. 

An  opcode  used 

in  code 

NAME_FLAG 

See  Symbol  Table 

SYT_FLAG. 

NAME__OP_FLAG 

See  Vector-Matrix. 

NAME_SUB 

1 if  a subscript 
pseudo-function ; 

is  enclosed 
0 otherwise. 

in 

a NAME 

NAMELOAD 

Initial  ("48") . 
generation. 

Opcode  used 

for 

code 

PAGT55BT/ANK  MOT 
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NAMESIZE 

NAMESTORE 

NARGINDEX 

NARGS 

NDECSY 

NEGLIT 

NEGMAX 

NEQ 

NESTFUNC 

NEW_GLOBAL_BASE 

NEW_HALMAT_BLOCK 

NEW_LOCAL_BASE 

NEW_REG 

NEW_STACK_LOC 

NEW_USAGE 

NEWPREC 

NEXT_REC 

NEXTCODE 

NEXTDECBREG 

NEXTPOPCODE 

INTERMETRICS  INCORPORATED  * 701 


Initial  (1) . The  number  of  half  words 
required  for  stoiring  a NAME  variable. 

Initial  ("40") . Opcode  used  for  code 
generation. 

The  ESDID  (scope)  number  of  the  block 
for  which  code  is  being  generated. 

Array  of  size  PROC#  • 

See  Block  Definition  Table. 

Number  of  declared  symbols . 

1 if  a literal  in  the  literal  table 
is  negative,  0 otherwise. 

Initial  ("80000000") . Maximum  negative 
value. 

Initial  (3) . Condition  code.  Used  as  a 
test  for  not  equal  to  in  branch  instruction 
generation. 

The  nest  level  of  a function  or  of  an  in- 
line function  invocation. 

See  Runtime  Stack  Frame. 

label 

See  Runtime  Stack  Frame, 
label 

See  Runtime  Stack  Frame . 
label 

See  HALMAT. 

■ .label 
label 

label 
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NSEC  CHECK 


label 


NTOC 

NULL__ADDR 

NUMOP 

OBJECT_CONDENSER 

OBJECT_GENERATOR 

OFF_INX 

OFF_TARGET 

offset' 

OK_TO_ASSIGN 

OPCC 


OPCODE 

OPCOUNT 

OPER 
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label 

Initial  (0) . An  address  or  value  of  zero. 

See  HALtlAT  decoding . 

label 

label 

label 

label 

Initial  (10) . A HALMAT  operand  qualifier 
and  indirect  stack  entry  form  for  an  offset 
value . 

See  Vector-Matrix. 

Array  of  size  OPMAX, initialized.  An  array 
indexing  the  offset  of  each  AP-101  instruc- 
tion on  the  condition  code: 

OPCC  SIGNIFICANCE 

0 Condition  Code  Unaffected 

1 Register  affected  by  condition 

code 

2 Condition  code  no  longer  valid 

3 Logical  condition  code 

See  HALMAT  decoding 

Array  of  size  OPMAX.  An  array  which  records 
the  number  of  times  each  of  the  opcodes 
used  in  code  generation  occurs. 

Array  of  size  OPMAX,  initialized.  An 
array  which  gives  the  index  in  the  appro- 
priate OPNAMES  entry  for  the  mnemonic  corres- 
ponding to  each  opcode  used  in  code  genera- 
tion. 
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OFER_PARM_FLAG 

OPER_SYMPTR 

OPERATOR 


OPMODE 

OPMODE 

OPNAMES 


OPR 

OPSTAT 

OPTIMIZE 

OPTION_BITS 

OPTYPE 

OPl 

OP  2 
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See  Vector-Matrix. 

See  Vector-Matrix. 

Array  of  size  OPMAX,  initialized.  Array 
used  to  test  whether  a generated  opcode 
actually  exists.  The  array  entry 
corresponding  to  the  opcode  is  1 if  it  exists, 
and  0 if  it  does  not. 

Things  have  the  same  OPMODE  if  operations 
between  them  require  no  conversions  (e.g. 
MATRIX,  VECTOR  and  SCALAR  have  same  OPMODE) . 
See  HALMAT  Operand  types . 


See  HALMAT  Operand  types. 

Array  of  size  (3),  initialized.  This 
array  consists  of  three  character  strings 
containing  the  mnemonics  associated  with 
the  opcodes  use  for  code  generation. 

SHR (OPCODE, 6)  gives  the  string  the 
mnemonic  is  in,  and  OPER (OPCODE)  gives 
the  index  in  the  string  where  the  mnemonic 
occurs. 

COMMON  BASED . See  HALMAT  decoding . 

label 

label 

COMMON  bits  indicating  which  of  the 
user  defined  compiler  options  have  been 
specified. 

See  HALMAT. 

1)  See  HALMAT. 

2)  A pointer  to  a symbol  table  entry, 
used  in  INITIALIZE. 

1)  Dummy  variable  used  in  INITIALIZE  and 
GENERATE . 

2)  Pointer  to  the  symbol  table  entry  for 

a template  associated  with  a structure, 
and  then  to  other  symbol  table  entries 
associated  with  the  template  when  walking 
through  the  template. 
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PACKFORM 


PACKFUNC_CLASS 

PACKTYPE 


PAD 

PADDR 

PARM_FLAGS 

PART_SIZE 

PCEBASE 


INTERMETRICS  INCORPORATED 


Array  of  size  (31).  Used  for  choosing  the 
form  of  the  intermediate  code.  The  values 


0 for  all  operand  field  qualifiers 
except  as  noted 

1 for  CSYM  WORK 

2 for  LIT,  VAC 


Array  of  size  (11),  initial  (0,0, 0,1, 

0,0,0,0,0,1,0,0) . 


Array  of  size  TYP_SIZE  , . u u 

initialized.  Value  associated  with  each 
Qpgrand  type  to  determine  storage  require 
ments . 

Value  Description 


0 Vector , Matrix  VECMAT 

1 Bit  BITS 

2 Character  CHAR 

3 Integer,  Scalar  INTSCA 

4 Structure 


Character  procedure. 

Initial  ( ' 4 ' ) • An  intermediate  code  opcode 
indicating  an  address  constant  which  points 
to  a literal  pool  entry. 

See  Symbol  Table  SYT_FLAGS . 

See  Vector-Matrix. 

A CSECT  used  for  Process  Director  Entries. 
This  CSECT  provides  information  about  task 
addresses  to  the  operating  system. 
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PDELTA 


PLBL 

PLUS 

PM_FLAGS 

PMINDEX 

POINT 

POINTER 
POINTER_FLAG 
PO INTER_OR_NAME 
POSITION_HALMAT 
POSMAX 

POWER_OF_TWO 

PP 

PREFIXMINUS 

PRINT_DATE_AND_ 

PRINTJTIME 

PRINTSUMMARY 

PROC_FUNC_CALL 

PROG  FUNG  SETUP 


Initial  (45) . An  intermediate  code  opcode 
indicating  that  the  next  instruction  muse 
be  modified  by  the  maximum  temporary 
storage  size  of  the  GSEGT  specified  by  the 
intermediate  code  instruction. 

Initial  (48),  An  intermediate  code  opcode 
indicating  a Phase  2 generated  label. 

Initial  ('+')• 

See  Symbol  Table  SYT_FLAGS. 

The  index  number  of  a %MAGRO, 

Array  of  size  LASTEMP. 

See  Storage  Descriptor  Stack, 

Initial  (7),  The  pointer  operand  type. 

See  Symbol  Table  SYT_PLAGS, 

See  Symbol  Table  SYT_FLAGS. 

label 

Initial  ("7FFFFFFF" ) . 
label 

See  HALMAT  decoding. 

See  HALMAT  operator  properties. 

TIME  label 
label 
label 
label 
label 
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1!/' 


Fi 


PROC_LABEL 

PROC_LEVEL 

PROC_LINK 

PROCBASE 

PROCLIMIT 

PROCPOINT 


PROC# 

PROG_LABEL 

PROGBASE 

PRQGCODE 

PROGDATA 

PROGNAME 

PROGPOINT 

PTRARGl 
PUSH  ADDLEVEL 


Initial  ("4+").  See  Symbol  Table  SYTJTYPE.  ^ = 

Array  of  size  PROC#.  See 

Block  Definition  Table.  -vv 

Array  of  size  PROC#.  See  H 

Block  Definition  Table.  i i 

See  Runtime  Stack  Frame.  13 

The  last  CSECT  number  assigned  to  a program,  | 1 

procedure,  function,  task,  or  Compool  by  y ^ 

Phase  1.  f| 

The  CSECT  number  = scope  number  of  a 4] 

procedure,  program,  function,  task  or  COMPOOL  i|  ; 

whose  symbol  table  entry  is  being  processed  |[ 

by  INITIALIZE.  J|  i 

. . ' M ■■■■■' 

j ■i  ■■ 

Literally  '255'  . The  maximum  number  of  csects  jj  i 

that  are  processable.  l]  | 

See  Symbol  Table  SYTJTYPE.  :j  j 

See  Runtime  Stack  Frame.  |!  J 

1 I 

The  number  of  halfwords  of  program  generated  ’ ^ 

by  Phase  2. 

PROGDATA (0)  is  the  number  of  halfwords  of 
local  data  generated  by  Phase  2.  PROGDATA (1) 
is  the  equivalent  for  REMOTE  data. 

Character  procedure . 

The  CSECT  number  = scope  number  of  the 
outer  block  of  a compilation  unit. 

See  Runtime  Stack  Frame. 

label 


PUSH_ARRAYNESS 

QUOTE 

R 

R BASE 


label 

Initial  {''''). 

The  register  field  of  an  AP-101  instruction. 
See  Register  Table. 
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\ ■' ■ ■ 

V 

/ 


R CONTENTS 


R_INX 
R_INX_CON 
R_INX_SHIFT 
RJIULT 
R SECTION 


retype 

R_VAR 
R_VAR2 . 
R XCON 


f'^See  Register  Table 


R_CLASS  Array  of  size  TYP_SIZE . 

Array  giving  the  type  of  register  used 
by  each  operand  type  for  finding  an 
appropriate  register  for  an  operand. 

RCLASS  Register  Type 

» 

0 Double  Floating  Accumulator 

1 Floating  Accumulator 

2 Double  Accumulator 

3 Fixed  Accumulator 

4 Index  Register 

5 Odd 
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RCLASS  START 


See  Registers. 


READCTR 

REAL_LABEL 

RECVR 

RECVR_NEST_LEVEL 

RECVR_OK 

RECVR  SYMPTR 


See  HALMAT  decoding 
label 

See  Vector-Matrix. 
See  Vector-Matrix. 
See  Vector-Matrix. 
See  Vector-Matrix. 


REENTRANT_FLAG 

REF_STRUCTURE 

REC 

REG  NUM 


See  Symbol  Table  SYT_FLAGS . 
label 

See  Indirect  Stack. 

The  maximum  number  of  base  registers  (real  & 
virtual) . 


REGISTER_SAVE_AREA  See  Runtime  Stack  Frame. 
REGISTER  STATUS  label 


REGISTERS  This  array  is  used  in  conjunction  with  RCLASS__ 

START  to  obtain  a list  of  all  registers  in  any 
class.  RCLASS_START  gives  the  entry  in  REGISTERS 
where  the  list  of  registers  of  a certain  class 
starts  (e.g.  if  begin=RCLASS_START (DOUBLE_AC) 
and  end=RCLASS_START(DOUBLE_AC+l)-l,  then 
REGISTERS  (begin)  REGISTERS  (begin+1)  , . . . 
REGISTERS (end)  are  all  the  double  accumulators. 

RELATIONAL  Initial  (21) . An  indirect  stack  entry 

type  used  for  generation  conditional 
branches. 

RELEASETEMP  label 

REMOTE  ADDRS  A flag  indicating  wheter  any  of  the 

operands  of  a HALMAT  instruction  is  remote 
data. 
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REMOTE_BASE 

REMOTE_FLAG 

REMOTE_LEVEL 

REMOTE_RECVR 

RESET 

RESTART 

RESULT 

RESUME  LOCCTR 


Initial  (9).  Register  9,  used  for  addressing 
remote  data. 

See  Symbol  Table  SYT_FLAGS. 

Array  of  size  PROG#. 

See  Block  Definition  Table. 

See  Vector-^Matrix. 

See  HALMAT  decoding. 

A location  in  MAIN__progrAm  where  GENERATE 
IS  called. 

See  HALMAT. 

label 


RETURN_STACK_ENTRIES  label 

RETURN_STACK_ENTRY  label 
REVERSE 


RHS 


RI 


RIGHT_DISJOINT 

RIGHT_NSEC 

RIGHTBRACKET 

RIGHTOP 

RIGID_FLAG 

RLD 


RM 

RNON_IDENT 

ROW 


See  HALMAT  operator  properties.  Used  to  change 
operator  when  commuting  an  operation. 

The  operand  field  of  an  intermediate  code 
output  word . 

Initial  (10) . A value  used  to  generate  the 

instructions.  Used 
with  MODE_MOD,  OPMODE,  and  ARITH  OP. 

See  Vector-Matrix. 

See  Vector-Matrix. 

Initial  (')'). 

See  HALMAT. 

See  Symbol  Table  SYT_FLAGS. 

Initial  (43).  An  intermediate  output 
code  opcode  used  to  specify  ah  ESDID  as 

the  reference  entry  for  an  RLD  specifi- 
Initial ("7").  Register  7. 

See  Vector-Matrix. 

Array  of  size  STACK  SIZE. 

See  Indirect  Stack. 
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RR 

RRTYPE 

RTYPE 

RX 

RXTYPE 


initial  (0) . A value  used  to  generate  ' 
the  opcode  for  various  RR  instructions. 
Used  with  MODE_MOD,  OPMODE,  and  ARITH_OP. 

Initial  (32) . An  intermediate  code  opcode 
indicating  an  RR  format  instruction. 

See  Vector-Matrix. 

Initial  (5) . A value  used  to  generate  the 
opcode  for  various  RX  instructions.  Used 
with  MODE_MOD,  OPMODE,  and  ARITH_OP. 

Initial  (33) . An  intermediate  code  opcode 
indicating  an  RX  format  instruction. 


RO  Initial  (0) . Register  0;  the  stack 

register  points  to  register  save  area. 
Formal  parameters,  temporaries,  and 
AUTOMATIC  variables  in  REENTRANT  procedures 
are  based  off  of  it. 


Rl  Initial  (1).  Register  1.  Used  to  address 

all  variables  and  values  within  a compila^ 
tion  unit. 

SAFE_INX  label 

SAVE_ARG_STACK_PTR  Array  of  size  CALL_LEVEL  #• 

See  Call  Stack. 

SAVE_CALL_LEVEL  Array  of  size  CALL_LEVEL  # • 

See  Call  Stack. 

SAVE_FLOATING_REGS  label 

SAVE_LITERAL  label 

SAVE_REGS  label 

SAVEPOINT  Array  of  size  LASTEMP  . 

See  Storage  Descriptor  Stack. 

SAVEPTR  See  Storage  Descriptor  Stack. 

SB  Initital  ("B6").  Opcode  used  for  code 

generation, 

SCALAR  Initital  (5).  The  single  precision 

scalar  operand  type. 
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'HJK' 


j*'. 


1840 


SDL 


SDOLEVEL 


SDOPTR 


SDOTEMP 


SDR 


SEARCH_INDEX2 

SEARCH_REGS 

SECONDLABEL 


SELECTYPE 


SELF  ALIGNING 


A compiler  option  informing  the  compiler 
whether  it  is  operating  within  the  SDL. 


Array  of  size  DONEST. 

See  Array  Do  Loop  Declarations. 


Array  of  size  DONEST . 

See  Array  Do  Loop  Declarations. 


Array  of  size  DONEST. 

See  Array  Do  Loop  Declarations. 


Initial  ("28").  An  opcode  used  for 
code  generation. 


label 


label 


A statement  label  generated  by  Phase  2 to 
use  as  the  destination  of  a branch  instruction. 


Array  of  size  TYP_SIZE, 

initialized.  A value  associated  with  each 
operand  type  used  for  generating  appropriate 
library  calls  and  for  determining  the  sequence 
of  conversions  in  assignment  statements. 


A compiler  option. 
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i 


SELFNAMELOC 


SER 


A pointer  to  the  symbol  table  entry  for 
the  outer  block  of  the  compilation  unit, 
(set  by  CHECK_COMPILABLE) . 


Initial  ("3B").  An  opcode  used  for 
code  generation. 


SET_AREA 

SET_ARRAY_SIZE 

SET_AUTO_IMPLIED 

s'et_auto_init 

SET_BINDEX 
SET_CHAR_DESC 
SET_CHAR_INX 
SET_C INDEX 

set_;errloc 

SET_EVENT_OPERAND 

SET_INIT_SYM 

SET_IO_LIST 

SET_LABEL 

SETJLOCCTR 

SETJDPERAND 

SET_RESULT_REG 

SETUP_ADCON 

SETUP_BOOLEAN 

SETUP_CANC_OR_TERM. 

SETUP  EVENT 


label 


r*", 
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SETUP_INX 
SETUP_NONHAL_ARG 
SETUP_PRIORITY 
SETUP_RELATIONAL 
SETUP_STACK 
SETUP_STRUCTURE 
SETUP_T  IME_OR_,EVENT 
SF_DISP 
SF  RANGE 


label 


SF  RANGE  PTR 


SGNLNAME 


SHAPING_CALL 
S HAP ING_FUNCT IONS 
SHCOUNT 

SHIFT 

SHOULD  COMMUTE 
SHW 


The  byte  width  of  the  operand  type. 

Array  of  size  CALL_LEVEL#. 

The  range  of  each  dimension  of  arrayness 
of  a shaping  function. 

A pointer  to  the  first  free  entry  in 
SF_RANGE. 

Array  of  size  (2),  initial  (12,13,  14). 

An  array  giving  the  SVC  number  corresponding 
to  each  kind  of  event  signalling. 

Value  Description  SVC  # 

0 SIGNAL  12 

1 SET  13 

2 RESET  14 


label 

label 

Initial  (23) . An  intermediate  code 
qualifier  idnicating  a shift  count. 

See  HALMAT  operand  types . 

label 

An  opcode  used  for  code  generation. 


SIMPLE_ARRAY_PARAMETER  label 
SIZEFIX  label 
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SIZES 


Array  of  size  VMOPSIZE  literally  '25', 
initialized.  Array  specifying  whether 
each  vector-matrix  operation  has  special 
routines  for  3x3  matrices  and  vectors  with 
3 components . 

SLDL  Initial  ("8D").  Opcode  used  for  code 

generation. 

SLL  Initial  ("89").  Opcode  used  for  code 

generation. 

SM  FLAGS  Initial  ("00C2008C" ) . Used  for  matching 

structure  terminal  SYT_FLAGS. 

SMADDR  Initial  (56) . An  intermediate  code  opcode 

indicating  a HAL/S  source  line  member. 

SMRKjCTR  See  HALMAT  decoding. 

SORD  Array  of  size  (1),  initial  ('  ',  'D'). 

Prefixes  for  built-in  function  names 
indicating  whether  to  use  the  function 
that  gives  a single  or  double  precision 
result. 


SPM 

SR 

SRA 

SRCE 

SRCEPART_SIZE 

SRCERR 

SRDA 

SRL 


Initial  ("04")  . Opcode  used  for  code 
generation. 

Initial  ("IB") . Opcode  used  for  code 
generation. 

Initial  ("8A").  Opcode  used  for  code 
generation. 

See  Vector-Matrix. 

See  Vector-Matrix. 

The  location  in  MAIW_PROGRAM  where  control 
goes  after  an  error  in  HAL/S  source 
has  been  found. 

Initial  ("8E") . Opcode  used  for  code 
generation. 

Initial  ("88")  . Opcode  used  for  code 
generation. 
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jS. 

1 , 


M >. 


SRSTYPE 

% 

SSTYPE 


ST 

STACK  EVENT 


Initial  (50) . An  intermediate  output 
code  opcode  indicating  an  SRS  format 
instruction. 

Initial  (34) . An  intermediate  output 
code  opcode  indicating  an  SS  format 
instruction. 

Initial  (50) . Opcode  used  for  code 
generation. 

label 


STACK_PREEPOINT  See  Runtime  Stack  Frame. 

STACK  LINK  See  Runtime  Stack'  Frame. 


STACK_MAX  See  Indirect  Stack. 

STACK_PTR  Array  of  size  STACK_SIZF . 

See  Indirect  Stack. 


STACK# 


See  Array  Do  Loop  Declarations. 


STACKPOINT 


STACKSPACE 


The  first  of  a sequence  of  ESDID  numbers 
assigned  to  the  unresolved  external  control 
sections  for  the  stack  for  each  program 
or  task. 

Array  of  size  PROC# . See 

Block  Definition  Table.  In  OBJECT_GENERATOR 
STACKSPACE (end)  = last  location  used  for  that 
end. 


STACKSPACE 

Array  of  size  PROC# • 

See  Block  Definition  Table. 

START_OFF 

See  Vector-Matrix. 

START_PART 

See  Vector-Matrix. 

STATIC_BLOCK 

label 

STATNO 

The  number  of  statement 
by  Phase  2. 

labels  generated 

STEP_LINf:# 

label 

STH 

Initial  ("40") . Opcode 
generation. 

used 

for 

code 

STM 

Initial  ( "9  0 " ) . Opcode 
generation. 

used 

for 

code 
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STMT_LABEL 

STMTJSIUM 

STMT_PREC 

STMTNO 

STNO 

STOPPERFLAG 


STORE 


See  Symbol  Table  SYT_TYPE. 


fiQ  if  dealing  with  double  precision  matrix 
result.  See  Vector-Matrix. 


Initial  (44) . An  intermediate  output  code 
opcode  marking  HAL  source  statement  boundaries. 

Initial  (20) . An  indirect  stack  entry 
form  and  intermediate  code  qualifier 
indicating  a Phase  2 generated  label. 

A flag  used  to  prevent  the  emitting  of 
code  for  branching  around  ELSE  clauses 
for  IF  statements  whose  THEN  clause  ends 
in  an  unconditional  branch. (For  example , 

GO  TOs,  RETURN.) 

Initial  ("01").  An  operator  code  for  storing 
used  as  an  index  into  the  table  containing 
information  about  the  different  operators. 


STRACE 

STRIJVCTIVE 

STRUCT 


Never  referenced. 

1 if  initialization  of  data  items  is 
occurring,  0 otherwise. 

Array  of  size  STACK_SIZE, 

See  Indirect  Stack. 


STRUCT_CON 

STRUCT_INX 

STRUCT_LINK 


STRUCT  MOD 


Array  of  size  STACK_SIZE  . 

See  Indirect  Stack. 

Array  of  size  STACK_SIZE  . 

See  Indirect  Stack. 

A pointer  to  a structure  template ' s symbol  * 
table  entry  used  for  chaining  through  a 
linked  list  of  structure  templates. 

Array  of  size  (1).  A modifier  used  for 
computing  the  address  of  a terminal  element 
of  a structure.  STRUCT_MOp  gives  the  off- 
set of  a mode  from  the  beginning  of  a 
structure  copy  plus  the  displacement  of  the 
3-{;]^uc;-ture  copy  the  address  is  in  from  the 
beginning  of  the  structure.  The  array  has 
two  entries  so  that  it  can  keep  information 
about  two  structures  at  once. 
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'At' 


STRUCT  REF 


STRUCT  START 


STRUCT  TEMPL 


STRUCTFIX 

STRUCTURE 

STRUCTURE_ADVANCE 

STRUCTURE_COMPARE 

STRUCTURE_DECODE 

STRUCTURE_WALK 

SUB# 

SUBCODE 

SUBLIMIT 

SUBMONITOR 

SUBOP 
SUBRANGE 
SUBSCRIPT  MULT 


Array  of  size  (I),.  A pointer  to  the  symbol 
table  entry  for  a structure's  template  used 
when  walking  through  structures.  The  array 
has  two  entries  so  that  it  can  keep  pointers 
to  two  structures  for  processing  structure 
conditions. 

A pointer  to  the  symbol  table  entry  for  the 
first  structure  template  in  a linked  list 
of  structure  templates.  The  SYT_LEVEL  entry 
of  each  template- points  to  the  next  member 
of  the  list. 

Array  of  size  (1) . A pointer  to  the  symbol 
table  entry  for  a structur-  template  which 
is  currently  being  referenced.  The  array 
has  two  entries  so  that  it  can  have  pointers 
to  two  structures  for  structure  conditionals. 

label 

Initial  (16) . The  structure  operand  type. 

label 

label 

label 

label 

Subscript  number. 

See  HALMAT  decode . 

See  Array  Do  Loop  declarations . 

The  location  in  MAIN_PROGRAM  where  control 
goes  if  compilation  is  abandoned  or  at  the 
end  of  compilation. 

See  HALMAT. 

See  Array  Do  Loop  declarations, 
label 


SUBSCRIPT_RANGE_CHECK  label 
SUBSCRIPT2  MULT  label 
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SUBSTRUCT  FLAG 


See  Vector-Matrix. 


SUCCESSOR 


label 


SYMBREAK 


SYMFORM 


SYM2 


SYS ARGO 


SYSARGl 


SYSARG2 


SYSINT 


SYT  ADDR 


SYT  ARRAY 


See  HALMAT  operator  properties. 

Initial  ("9A'*)  . Opcode  used  for 
code  generation . 

Initial  (1) . A HALMAT  operand  qualifier, 
indirect  stack  entry  form,  and  intermediate 
code  qualifier  indicating  a symbol  table 
entry. 

The  ESD  number  of  the  last  function  or 
procedure  that  has  a symbol  table  entry. 

The  last  number  assigned  by  Phase  1. 

Array  of  size  (31) . 1 for  SYM,  CSYM,  IMD, 

and  INL;  0 for  other  intermediate  code 
qualifiers.  Initialized  by  INITIALISE. 

Initial  (29) . An  operand  qualifier  used 

for  indicating  that  a register  is 

bieng  used  for  two-dimensional  subscripting. 

Initial  (1).  Register  1.  This  name  refers 
to  its  use  for  vector-matrix  routine  input 
and  output . 

Initial  (2).  Register  2.  This  name  refers 
to  its  use  for  vector  and  matrix  routine 
input  and  output. 

Initial  (3).  Register  3.  This  name  refers 
to  its  use  for  vector  and  matrix  routine 
input  and  output. 

Initial  (21).  An  intermediate  code  qualifier 
indicating  a System  Intrinsic  Library  member. 

Common  Based.  See  Symbol  Table. 

Common  Based.  See  Symbol  Table. 


5-106 


INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


1 


SYT_ 

BASE 

Based. 

See  Symbol 

Table. 

SYT_ 

CLASS 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

CONST 

Based. 

See  Symbol 

Table. 

■ 

SYT_ 

COPIES 

label 

SYT_ 

DIMS 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

DISP 

Based, 

See  Symbol 

Table . 

SYT_ 

FLAGS 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

_LEVEL 

Based. 

See  Symbol 

Table . 

SYT_ 

LINKl 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

LINK  2 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

_LOCK# 

Common 

Based . See 

Symbol 

Table. 

SYT_ 

_NAME 

Common 

Based.  See 

Symbol  Table. 

SYT_ 

_NEST 

Common 

Based.  See 

Symbol  Table. 

SYT_ 

_PARM 

Based. 

See  Symbol 

Table. 

SYT_ 

_PTR 

Common 

Based.  See 

Symbol 

Table . 

SYT_ 

_SCOPE 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

_SIZE 

The  size  of  the  symbol  table.  See  Symbol 
Table. 

SYT_ 

_SORT 

Based. 

See  Symbol 

Table. 

SYT_ 

_TYPE 

Common 

Based.  See 

Symbol 

Table. 

SYT_ 

_XREF 

Common 

Based.  See 

Symbol 

Table. 

TABLE_ADDR 

Common 

. Never  referenced 

• 

TAG 

See  HALMAT  decoding. 

TAG 

BITS 

label 
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i 

I 


1 TAGS 

See 

HALMAT 

decoding. . 

TAGl 

See 

HALMAT 

decoding. 

TAG  2 

See 

HALMAT 

decoding. 

TAGS 

See 

HALMAT 

decoding . 

TARGET_R  Initial  (-1).  If  TARGET_R  is  positive, 

routines  that  search  for  a free  register 
will  checkpoint  it  and  return  it. 

TARGET  REGISTER  Initial  (-1) . If  TARGET_REGISTER  ^ 0, 

“ routines  that  force  values  into  registers 

will  force  them  into  this  register. 

TASKjLiABEL  See  Symbol  Table  SYT_TYPE. 

TASK#  The  number  of  tasks  in  the  compilation  unit. 

TASKPOINT  A pointer  to  the  symbol  table  entry  for 

the  first  task  in  a linked  list  of  all  the 
tasks  in  a program.  The  tasks  are  linked 
through  SYT_LINK1. 

TB  Initial  ("Bl") . Opcode  used  for  code 

generation. 

TD  Initial  ("9B") . Opcode  used  for  code 

generation. 

TEMP  A temporary  variable  with  a variety  of 

uses  used  in  object  code  generation. 

TEMPBASE  See  Runtime  Stack  Frame . 

TEMPL_NAME  See  Symbol  Table  SYTJTYPE. 

TEMPORARY_FLAG  See  Symbol  Table  SYT_FLAG. 

TEMP SPACE  1)  Used  to  compute  the  EXTENT  of  a symbol 

table  entry  for  variables  that  are  not 
formal  parameters. 

2)  The  number  of  elements  in  a matrix, 
vector,  or  array. 
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TERMFLAG  Used  to  distinguish  matrix  subscripting 

from  subscripting  of  other  data  types. 

Value  is  0 for  non-matrix  data  types. 

For  matrices  value  is  1 while  subscripting 
the  rows,  and  then  set  to.  0 for  subscripting 
the  columns. 


TERMINATE  label 

See  HALMAT  Operator  properties. 

Initial  ("91").  An  opcode  used  for 
code  generation. 

A temporary  variable  with  a variety 
of  localized  uses. 

TO  BE  INCORPORATED  Initial  (1) . A flag  indicating  the 
— “ presence  of  integer  constants  that  are 

to  be  incorporated  into  terms. 

TO  BE  MODIFIED  Initial  (1).  A flag  indicating  whether 

” ~ the  contents  of  a register  will  be  modified 

or  not. 

TOGGLE  Common . 

TRACING  A flag  indicating  if  the  TRACE  compiler 

option  is  in  effect. 


TEST 

TH 

TMP 


TRUE_INX  label 

TS  Initial  ("93").  Opcode  used  for  code 

generation. 

TYPE  See  indirect  Stack. 

TYPE_BITS  label 

TYPES  Array  of  size  (8),  initial  ( 'H' , ' I ' , 'E' , 

'D' , 'B' , 'B' , 'K' , 'O' , 'X' ) . Entries  from 
this  array  are  chosen  according  to  the 
SELECTYPE  of  an  operand  and  used  to 
generate  calls  to  appropriate _ library 
routines  by  prefixing  or  suffixing 
the  letter  to  the  name  of  the  routine . 
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ULBL 


Initial  (36).  An  intermediate  code 
opcode  for  a user  defined  label. 

UNARY  See  HALMAT  Operator  properties. 

UNARYOP  label 

UNIMPLEMENTED  Location  to  which  control  is  transferred 

if  an  unimplemented  feature  is  encountered. 

UNRECOGNIZABLE  label 

UPDATE_ASSIGN_CHECK  label 

UPDATE_CHECK  label 

UPDATE_INX_USAGE  label 

UPDATING  If  greater  than  0,  this  is  the  block 

number  of  an  update  block  for  which  code 
is  being  generated. 

UPPER  Array  of  size  LASTEMP. 

See  Storage  Descriptor  Stack. 

USAGE  Array  of  size  REG_NUM  . 

See  Register  Table. 

USAGE_LINE  Array  of  size  REG_NUM  . 

See  Register  Table. 

VAC  Initial  (3) . 

1)  A HALMAT  operand  qualifier  for  a virtual 
accumulator,  a block  pointer  to  the 
results  of  a previous  HALMAT  instruction. 

2)  An  indirect  stack  entry  form  for  a 
register  being  used  as  a temporary 
variable . 


VAC  COPIES  label 
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> 

kjr. 


VAC_FLAG 

See  Vector-Matrix. 

VAL 

Array  of  size  STACK_SIZE  literally  '100'. 
See  Indirect  Stack. 

VALMOD 

Used  to  modify  the  offset  calculated  for 
TO  or  AT  partiion  subscripts  to  take  into 
account  the  indexing  method  used. 

VALMUL 

The  size  of  a subscript  used  in  an  array , 
component,  or  structure  subscripting  opera- 
tion. 

VALS 

Based. 

VAR_CLASS 

See  Symbol  Table  SYTjCLASS . 

VECMAT 

Initial  (0) . The  PACKTYPE  of  vector  and 
matrix  operands . 

VECMAT_ASSIGN 

label 

VECMAT_CONVERT 

label 

VECTOR 

Initial  (4) . The  single  precision  vector 
operand  type. 

VERIFY_INX_USAGE 

label 

VERSION 

Initial  (8).  The  compiler  version  number. 

VERSION_LEVEL 

Initial  (5).  The  compiler  version  level. 

VMCALL 

label 

VMREMOTEOP 

Array  of  size  VMOPSIZE  • 

initialized.  An  array  used  to  generate  the 
opcode  used  for  calling  the  versions  of 
vector-matrix  routines  for  remote  data. 

WAITNAME 

Array  of  size  (3) , initial  (9, 6, 7, 8) . 

This  array  gives  the  SVC  number  associated 
with  each  kind  of  WAIT. 

HALMAT  WAIT 
operator  tag 

0 

1 

2 


Kind  of  WAIT  SVC  # 

WAIT  FOR  DEPENDENT  9 

WAIT  (timing  expression)  6 
WAIT  UNTIL  (timing  expres-  7 
sions) 

WAIT  FOR  (event  expresion)  8 


INTFRMETRICS  INCORPORATED  ■ 701 
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WORDS I ZE 


WORK 


WORK_CTR 
WORK  USAGE 


Initial  (32) . The  number  of  bits  in  a 
word . 

Initial  (31) . An  indirect  stack  entry  form 
for  a location  in  the  temporary  storage 
area  of  a CSECT. 

Array  of  size  LASTEMP . 

See  Storage  Descriptor  Stack. 

Array  of  size  LASTEMP . 

See  Storage  Descriptor  Stack. 


WORKSEG 

WORKl 

WORK  2 


W0RK3 


X BITS 


Array  of  size  PROC#  . 

See  Block  Definition  Table. 

A temporary  variable  with  a variety  of 
uses  including; 

1)  Setting  up  labels  for  DO  CASE  statements. 

2)  Pointer  to  symbol  table  entries  for 
struture  terminals. 

A temporary  variable  with  a variety  of  uses 
including; 

1)  Setting  up  labels  for  DO  CASE  statements. 

2)  Pointer  to  symbol  table  entries  for 
structure  terminals. 

Records  value  of  FREELIMIT  after  dynamic 
allocation  of  COMMON  tables  to  be  passed  to 
Phase  3 . 

label 


XADD 

XBNEQ 

XCFOR 

XCSIO 

XCSLD 

XCSST 

XCTST 


See  HALMAT  opcodes. 
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XD 


XDIV 

XDLPE 

XEXP 

XEXTN 

XFBRA 

XFILE 

XICLS 

XIDEF 

XILT 

XIMRK 

XIST 

XITAB 

XMAGN 

XMDET 

XMEXP 

XMIDN 


Initial  (”B7") , Opcode  used  for 
code  generation . 


Array  of  Size  (32)  , initiailized. 
Character  strings  used  for  masking  bit 
operands  according  to  size. 


'.iSr.'*' 


■’;-3?S»f???E«1SiSRm75IM«Wrt 


KNOT 

XOR 

XPASN 

XPEX 

XPROGLINK 


See  HALMAT  Opcodes. 


A pointer  to  the  beginning  of  a chian  of 
external  non-HAL  procedures  or  function. 
XPROGLINK  points  to  the  symbol  table  entry 
of  the  first  such  procedure  or  function. 
SYT^LINKl  is  used  by  each  member  of  the 
chain  to  pointto  the  next  member . 


XPT 

See  HALMAT . 

XR 

Initial  ("17”).  An 
generation. 

opcode 

XRDAL 

See  HALMAT  opcodes. 

XREAD 

See  HALMAT  opcodes . 

XREF 

See  Symbol  Table  SYT  XREF. 

XSASN  ^ 

1 

XSFAR  j 

1 

XSFNO  , 

^ See  HALMAT  opcodes 

XSFST 

i XSMRK  f 

XVAL 

I , ' 

Array  of  size  STACK 
See  Indirect  Stack. 

SIZE. 

■.»  f 


M ' 

'f: 
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XVMIO 

XWRIT 

XXASN 

XXREC 

XXXAR 

XXXNO 

XXST 

X2 

X3 

X4 

X72 

Z_LINKAGE 

ZADDR 

ZB 


See  HALMAT  opcodes. 


ZH 


Initial  ('  ').  A string  of  two  blanks. 

Initial  ('  ').  A string  of  three  blanks. 

Initial  ('  ').  A string  of  four  blanks. 

Initialized.  A string  of  seventy-two 
blanks . 

A compiler  option  indicating  that  external 
linkage  conventions  are  to  be  used. 

Initial  (55) , An  intermediate  code 
opcode  indicating  a Z-type  address  constant. 

Initial  ("BE").  Opcode  used  for  code 
generation. 

Initial  ("99") . Opcode  used  for  code 
generation. 
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5.2  Procedure  Descriptions 


Name 


ABS 

ADDRESS_STRUCTURE 

ADDRESSABLE 

ADJUST 

ALLOCATE_TEMPLATE 

ALLOCATE_TEMPORARY 

ARG_ASSEMBLE 

ARITH_BY_MODE 

ARRAY_INDEX_MOD 

ARRAY 2 INDEX  MOD 


ASSIGN_CLEAR 

AVAI LABLE_FROM_STORAGE 

BEGIN_SF_REPEAT 

BESTAC 

BIT_MASK 

BIT_SHIFT 

BIT_STORE 

B1T_SUBSCRIPT 

BLOCK_CLOSE 

BLOCK_OPEN 

BOUNDARY_ALIGN 

CHAR_CALL 

CHAR_CONVERT 

CHAR_INDEX 

CHAR_SUBSCRIPT 

CHARACTER_TERMINAL 

CHECK_ADDR_NEST 

CHEGK_AGGREGATE_ASS IGN 

CHECK_AND_DROP_VAC 

CHECK_ASSIGN 

CHECK_ASSIGN_PARM 

CHECK  COMPILABLE 


/ 

/ 

/ 

X 

/ 

/ 

/ 

/ 

/ 


X 

X 

X 

X 

/ 

/ 

V 

X 

/ 

/ 

X 

/ 

X 

/ 

X 

X 

/ 

X 

X 


X 

X 


Similar  to  ARRAY_INDEX_MOD 
for  two  dimensional  arrays. 


See  GENERATE  MTRA 


I 

1 
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‘.i 


CHECK_CSYM_INX 

CHECK_LINKREG 

CHECK_LOCAL_SYM 

CHECK_LOCK# 

CHECK_NAME_PARM 

CHECK_REMOTE 

CHECK_SI 

CHECK_SRCE 

CHECK_SRS 

CHECK_STRUCTURE_PARM 

CHECK_VAC 

CHECK_VM_ARG_DIMS 

CHECKPOINT_REG 

CHECKSIZE 

CLEAR__CALL_REGS 

CLEAR_NAME_SAFE 

CLEARER 

CLEAR_REGS 

GLEAR_SCOPED_REGS 

CLEAR_STMT_REGS 

COMMUTEM 

COMPARE_STRUCTURE 

CONSTERM 

COPY_STACK_ENTRY 

CS 

CTON 

DECODEPIP 

DECODEPOP 

DEFINE_LABEL 

DESC 

DESGENDENT 

DIMFIX 

DO_ASSIGNMENT 
DO  EXPRESSION 


/ 

X 

X 

X 

X 

/ 

X 

X 

X 

/ 

X 

/ 

/ 

X 

X 

/ 

X 

X 

X 

X 

X 

X 

X 

X 

X 

/ 

/ 

/ 

/ 

/ 

/ 

X 


See  GENERATE  MTRA 


See  STRUCTURE  WALK 


! 7 
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DOCLOSE 

DOFORSETUP 

DOMOVE 

DOOPEN 

DROP_INX 

DROP__PARM__STACK 

DROP_REG 

DROP_VAC 

DROPFREESPAGE 

DROPLIST 

DROPOUT  ' 

DROPSAVE 

DROPTEMP 

EMIT_ADDRS 

EMIT_ARRAY_DO 

EMIT_BY_MODE 

EMIT_CALL 

EMIT_CARD 

EMIT_ENTRY 

EMIT_ESD_CARDS 

EMIT_SYM_CARDS 

EMIT_EVENT_EXPRESS ION 

EMIT_RETURN 

EMIT_WHILE_TEST 

EMIT_Z_CON 

EMITADDR 

EMITBFW 

EMITC 

EMITDELTA 

EMITDENSE 

EMITEVENTADDR 

EMITLFW 

EMITOP 

EM  I TP 


/ 

X 

X 

/ 

/ 

X 

X 

/ 

/ 

/ 

V 

/ 

/ 

See  OBJECT_GENERATOR  (56) 

/ 

X 

X 

/ 

X 

/ 

/ 

V 

X 

/ 

X 

X 

X 

X - 

X ' ■ ■ 

X 

X 

X 

X REPRODUCiBiLITT  OF  THE 

X ORIGINAL  PAGE  IS  POOR 


5-118 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE.  MASSACHUSETTS  02138  • (617)  661-1840 


EMITPCEADDR 

EMITPDELTA 

EMITPFW 

EMITRR 

EMITRX 

EMITSI 

EMITSIOP 

EMITSP 

EMITSTRING 

EMITW 

EMITXOP 

END_SF_REPEAT 

ENTER 

ENTERjCALL 

ENTER_CHAR_LIT 

ENTER_ESD 

ERRCALL 

ERRORS 

ESD_TABLE 

EVALUATE 

event_operator 

exponential 

expression 

FETCH_VAC 
FINDAC 
FIX  INTLBL 


X 

X 

X 

X 

X 

X 

X 

X 

/ 

X 

X 

X 

X 

X 

/ 

X 

X 

X 

X 

X 

X 

/ 

X 

X 

X 

/ 


FIX_LABEL 
F IX_STRUCT_INX 

fix_term__inx 

FORCE_ACCUMULATOR 
FORCE_ADDR_LIT 
FORCE_ADDRESS 
F ORC  E__ARRA  Y_S  I Z E 
FORCE  BY  MODE 


intermetrics 
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T 


FORCE_NUM 

FORM_BD 

FORM_CHARNAME 

FORM_VMNAME 

FORMAT 

FORMAT__OPERAND  S 

FREE_ARRAYNESS 

FREE_TEMPORARY 

GEN_ARRAY_TEMP 

GEN_STORE 

GENCALL 

GENERATE 

GENERATE_CONSTANTS 

GENEVENTADDR 

GENLIBCALL 

GENS  I 

GENSVC 

GENSVCADDR 

GET_ARRAYSIZE 

GET_ASIZ 

GET_CHAR_OPERANDS 

GET_CODE 

GET_CSIZ 

GET_EVENT_OPERANDS 

GET_FUNC_RESULT 

GET_INIT_LIT 

GET_INST_R_X 

GET_INTEGER_LITERAL 

GET_LIT_ONE 

GET_LITERAL 

GETJDPERAND 

GET_OPERANDS 

GET_R 

GET_STAGK_ENTRY 
GET  STRUCTOP 


X 

/ 

X 

X 

/ 

X 

/ 

X 

/ 

/ 

X 

/ 

/ 

X 

X 

X 

X 

X 

X 

/ 

X 

X 

X 

X 

/ 

X 

X 

/ 

X 

/ 

/ 

X 

/ 

/ 

X 
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GET_SUBSCRIPT 

GET_VAC 

GET_VM__TEMP 

GETARRAY# 

GETARRAYDIM 

GETFREESPACE 

GETINTLBL 

GETINVTEMP 

GETLABEL 

GETSTATNO 

GETSTMTLBL 

GETSTRUCTf 

GUARANTEE_ADDRES SABLE 

HASH 

HEX 

HEX_LOCCTR 

IDENTIJDISJOINT_CHECK 

INCORPORATE 

INCR_USAGE 

INDIRECT 

INITIALISE 

INSTRUCTION 

INTEGERJDIVIDE 

INTEGER_MULTIPLY 

INTEGER_VALUE 

INTEGERI ZABLE 

INTRINSIC 

lOINIT 

KNOWN_SYM 

LIB_LOOK 

LIBNAME 

LITERAL 

LOAD  NUM 


X 

/ 

X 

/ 

/ 

/, 

/ 

X 

X 

/ ■ 

/ 

X 

/ 

X 

/ 

/ 

- See  Section  on  V-M  Optimiza 
tion  and  EC  Spec.  3. 1.5. 5. 

^ .. 

X'  . 

X 

/ 

X 

X 

/ 

X 

/ 

X 

X 

X 

X 

X 

/ 

/ 
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LOAD_TEMP 
LUMP_ARRAYSIZE 
LUMP_TERMINALS I ZE 
MAIN_PROGRAM 
MAJOR_STRUCTURE 
MAKE_INST 
MARKER 

MASK_BIT_LIST 
MAX 
MIN 

MIX_ASSEMBLE 

MOD_GET_OPERAND 

MOVE_STRUCTURE 
MOVEREG 
NEED_STACK 
NEW_HALMAT_BLOCK 
NEW_REG 
NEW_USAGE 
NEXT_REC 
NEXT_STACK 
NEXTCODE 
NEXTPOPCODE 
NONHAL_PROC_FUNC_CALL 
NONHAL_PROC_FUNC_SETUP 
NSEC_CHECK 
NTOC 

OBJECT_CONDENSER 
OBJECT_GENERATOR 
OFF_INX 
OFF_TARGET 
OPDECODE 
OPSTAT 
OPTIMISE 
PAD 

PARAMETER_ALLOCATE 
INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE 


X 

X 

X . 

X 

/ 

X 

X 

X 

/ 

/ 

Similar  to  ARG  ASSEMBLE  with 
second  operand  scalar 

A restricted  version  of 
GET_OPERAND 

X 

/ 

X 

/ 

/ 

/ 

X 

X 

/ 

X 

X 

X 

X 

X 

/ 

/ 

/ 

X 

X 

X 

/ 

/ 

/ 
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i' 


PARMTEMP 
POS ITION_HALMAT 
POWER_OP_TWO 
PRINT_DATE_AND_TIME 
PRINT_TIME 
PRINT  SUMMARY 
PROC_FUNC_CALL 
PROC_FUNC_SETUP 
PROCENTRY 
■PROGNAME 

PUSH_ADOLEVEL 

PUSH_ARRAYNESS 

REAL_LABEL 

REF_STRUCTURE 

REGISTER_STATUS 

RELEASETEMP 

RESUME_LOCCTR 

RETURN_EXP_OR_FH 

RETURN_STAC  K_ENTR IE S 

RETURN_STACK_ENTRY 

SAFE_INX 

SAVE_FLOAT ING_REGS 

SAVE_LITERAL 

SAVE_REGS 

SEARCH_INDEX2 

SEARCH_REGS 

SET_AREA 

SET_ARRAY_SIZE 

SET_AUTO_IMPLIED 

SET_AUTO_INIT 

SET_BINDEX 

SET_BIT_TYPE 

SET_CHAR_DESC 

SET_CHAR_INX 

SET  CINDEX 


X 

/ 

/ ’ 

X 

X 

X 

X 

/ 

/ 

X See  Section  6.2  of  User's 
Manual 

X 

7 

X 

X 

/ 

/ 

'/  ' 

X ■, 

X 

/ 

X 

/ 

V 

/ 

X 

/ 

See  BLOCK_OPEN 
X 
X 

X 

X 

X 

X 
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SET_ERRLOC  / 
SET_EVENT_OPERAND  X 
SET_INIT_SYM  X 
SET_IO_LIST  X 
SET_LABEL  / 
SET_LOCCTR  / 
SET_NEST_AND_LOCKS  X 
SET_OPERAND  X 
SET_PROCESS_SIZE  X 
SET_RESULT_REG  X 
SETUP_ADCON  / 
SETUP_BOOLEAN  / 
SETUP_CANC_OR_TERM  X 
SETUP_DATA  X 
SETUP_EVENT  X 
SETUP_INX  X 
SETUP_NONHAL_ARG  X 
SETUP_PRIORITY  / 
SETUP_RELATIONAL  X 
SETUP_REMOTE_DATA  X 
SETUP_STACK  / 
SETUP_STACKS  X 
SETUP_STRUCTURE  X 
SETUP_TIME_OR_EVENT  X 
SETUP_TOTAL_SIZE  X 
SETUP_VAC  X 
SETUP_XPROG  X 
SHAPING_CALL  X 
SHAPING_FUNCTIONS  X 
SHORTCUT_BIT_LIT  X 
SHOULD_COMMUTE  X 
SIMPLE_ARRAY_PARAMETER  X 
SIZEFIX  / 
SKIP  X 
SKIP  ADDR  X 
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fH 


H-- 


m. 


SKIP_NOP 

P STACK_EVENT 

STACK_PARM 
STACK_REG_PARM 
STACK_TARGET 
STATIC_BLOCK 
STEP_LINE# 
STORAGE_ASSIGNMENT 
STORAGE_MGT 
STRUCTPIX 
STRUCTURE_ADVANCE 
STRUCTURE_GOMPARE 
STRUCTURE_DECODE 
STRUCTURE_WALK 
SUBSCRIPTJMULT 
SUBSCRIPT_RANGE_CHECK 
SUBSCRIPT2_MULT 
SUCCESSOR 
^ SYT_COPIES 

TAG_BITS 
TERMINATE 
TRUE_INX 
TYPE_BITS 
UNARYOP 

UNRECOGNIZABLE 

UNSPEC 

UPDATE_ASSIGN_CHECK 
UPDATE_CHECK 
UPDATE_INX_USAGE 
VAC_COPIES 
VARIABLES 
VECMAT_ASSIGN 
VECMAT_CONVERT 
VERIFY_INX_USAGE 
VMCALL 
X BITS 


X 

X 

X 

X 

X 

X 

/ 

/ 

X 

/ 

X 

/ 

/ 

V 

/ 

/ 

/ 

/ 

X 
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/ 

X 

X 

/ 

/ 

/ 

/ 

X 

X 

/ 

/ 
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See  STRUCTURE_WALK 

See  HALMAT  decoding  Section  3.3.8 


See  HALMAT  decoding  Section  3.3.8 


See  HALMAT  decoding  Section  3.3.8 
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ABS 

Purpose ; 

Absolute  value  function. 

Parameters  Passed; 

VALUE:  A value. 

Local  Variables: 

None . 

Value  Returned: 

The- absolute  value  of  VALUE. 


j 

! 
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ADDRESS  STRUCTURE 


Procedure 


Purpose; 


^ structure  terminal.  If 

BACKUP~RPr  REG  xs  a base  register;  otherwise, 

car^of  “ checkpointed  base  register.  To  take 

the  h=ic!o  displacements,  everything  is  incorporated  into 

T-ue  case  ir  necessary. 


Parameters ; 

PTR:  stack  entry  for  structure 

OP:  symbol  table  entry  for  terminal 

REP:  0 or  1 for  first  or  second  structure  in  comparison 

TEASE:  if  fiQ , then  desired  base  register. 
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ADDRESSABLE 


Procedure 


Purpose ; 

Given  a symbol  table  entry  and  the  run-time  location 
for  it,  assign  it  a specific  base  regxster  and  a specific 
displacement  taking  into  account  all  addressing  modes  of 
the  hardware.  Notice  that  if  the  location  cannot  be 
reached  from  an  existing  base  register,  one  must  be 
created.  Since  the  hardware  has  a limited  number  of 
regis?ers,  virtual  registers  are  created  (SYT  BASE<0) 
and  subsequently  code  will  be  generated  to  load  virtual 
base  registers  into  hardware  registers. 
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ALLOCATE  TEMPLATE 


^ji.5«Escas 


I 


Procedure 


Purpose ; 

To  lay  out  storage  for  a structure  template.  When 
INITIALISE  has  completed  processing  a minor  node  of  a 
structure  template/  the  symbol  table  pointers  for  all  of 
the  nodes  are  at  the  end  of  SYT_SORT.-  A minor  node  must 
have  contiguous  storage  to  allow  passing  such  structures 
as  procedure  parameters;  thus,  layout  is  done  for  each 
minor  node,  rather  than  once  for  the  entire  structure. 
Storage  is  layed  out  using  the  same  algorithms  as  ^ for 
regular  storage  allocation  (i.e.  packing,  minimizing 
offsets,  minimizing  boundary  alignments) . Addresses 
relative  to  the  minor  node  point  are  filled  into  SYT_ADDR. 
These  will  be  amended  to  be  relative  to  the  major  structure 
node  when  INITIALISE  completes  the  structure.  Notice  that 
storage  is  only  layed  out  here,  storage  will  be  allocated 
if  a variable  of  this  type  is  declared. 

Parameters ; 

PTR:  Symbol  table  entry  for  minor  node  point. 
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ALLOCATE  TEMPORARY 


Purpose ; 

Set  up  storage  for  temporaries  of  DO  group. 


Local  Variables; 

TEMP  - pointer  to  indirect  stack. 

TYP  - type  of  variable. 

Parameters  Passed; 

ptr  “ symbol  table  pointer  to  first  temporary. 

Communicates  via; 

Symbol  table. 

Description ; 

If  it  has  already  been  done,  return?  otherwise, 
follow  list  in  SYT  LINKl,  allocate  space;  copy  informa- 
tion from  indirect  stack  to  symbol  table?  set  up  implied 
initialization?  return  stack  entry. 
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ARG  ASSEMBLE 


Procedure 


Purpose ! 

To  set  up  arguments  for  vector-matrix  operations. 
This  includes  GET_OPERAND,  conversion  if  the  precisions 
do  i;ot  agree,  conversion  of  either  operand  if  it  is 
remote  or  is  a partition. 
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ARITH_BY_MODE 

Procedure 


Purpose; 

To  emit  code  for  RX  and  RR  arithmetic  by  mode. 


Parameters  Passed: 


OP: 

The  operator  code. 

OPl: 

A pointer  to  the  Indirect  Stack 
first  operand. 

entry 

for 

the 

OP2: 

A pointer  to  the  Indirect  Stack 
second  operator. 

entry 

for 

the 

OPTYPE : 

The  operand  type. 

BIAS: 

The  bias  for  the  instruction:  RR  or  RX. 

Local  Variables: 

INST: 

The  opcode  for  the  instruction. 

Communicates  via; 

Calling  the  code  emitting  routines. 

Description ; 

The  register  type  of  the  first  operand's  register, 

R_TYPE (REG (OPl) ) , is  set  to  OPTYPE.  If  the  operand  type 
is  double  precision  scalar  and  one  of  several  certain  operators 
is  being  used,  the  operator  type  can  be  considered  to  be  single 
precision  scalar.  If  the  second  Indirect  Stack  entry's  form 
is  VAC,  it  is  a register  temporary.  This  means  that  an  RR  type 
instruction  can  be  used,  BIAS=RR;  otherwise,  an  RX  instruction 
must  be  used. 
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ARITH  by  mode  (Con't.) 


The  instruction's  opcode  INST  is  computed  using  the 
following  equation: 

ARITH_OP(OP)  + MODE_MOD (OPMODE (OPT YPE)  + BIAS) 

where  ARITH_OP  primarily  provies  the  second  hex  digit  of 
the  opcode,  and  MODE_MOD  modifies  the  fist  hex  digit 
according  to  the  instruction  mode. 

For  an  RR  instruction,  EMITRR  is  called  to  emit  the  code. 

If  the  operator  is  binary,  the  usage  of  the  second  operand's 
register  is  decremented  since  its  contents  have  one  less 
claim  on  them. 

For  an  RX  instruction,  if  the  form  of  the  second 
operand  is  a literal  and  the  operand  mode  is  halfword  integer, 
a check  is  made  to  see  if  there  is  an  RI  form  of  the  instruction. 
The  instruction  has  an  RI  form  if  the  APIOIINST  entry  for 
INST+"60"  is  non-zero.  Halfword  integer  opcodes  have  a 
first  digit  of  3;  adding  "60",  gives  a first  digit  of  9, 
which  characterizes  RI  instruction.  If  the  instruction  has 
an  RI  form,  the  FORM  and  LOG  fields  of  OP2's  Stack  entry 
are  changed  to  a form  appropriate  for  generating  intermediate 
code.  If  the  second  operand  is  a literal  and  no  RI  instruction 
form  exists.  SAVE_LITERAL  is  called  to  save  the  literal  in 
the  appropriate  literal  pool. 

For  all  RX  instructions,  GUARANTEE_ADDRES SABLE  is  called 
to  amke  sure  that  0P2  can  be  addressed  using  the  instruction, 
INST.  EMITOP  is  called  to  emit  the  instruction.  DROP_INX (OP2) 
is  called  to  drop  OP2's  index  register.  DROPSAVE (OP2)  is  called 
to  indicate,  that  if  OP2's  form  is  WORK,  the  temporary  storage 
used  by  it  has  one  less  claim. 

References : 

The  Operand  and  Operator  Tables,  Opcode  Construction. 
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ARRAY_INDEX_MOD 

Function 

i ' r 

Purpose ; 

To  generate  code  to  load  or  modify  current  index  by  array 
loop  index.  If  OP  (see  below)  is  0 then  just  generate  code  to 
load  the  index.  Notice  that  if  SHIFTCT  5^  0,  an  attempt  is  made 
to  find  the  index  in  a register  both  with  the  given  value  and 
with  0 before  the  load  code  is  emitted.  If  OP  0,  generate 
code  to  add  increment  to  index.  Notice  that  an  attempt  is 
first  made  to  find  the  increment  in  a register  and  use  RR 
code;  if  impossible,  then  do  AH. 

Returns ; 

Stack ■ pointer  for  index. 

Parameters ; 

OP:  Stack  pointer  for  index  or  -0 

INDEX:  Initial  value  or  increment 

SHIFTCT:  Required  shift  to  convert  array  subscript  to  index 
(depends  on  width  of  data) 
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BIT_MASK 

Procedure 
Purpose ; 

To  mask  bit  operands  according  to  size. 
Parameters  Passed : 


OPCODE:  The  operator  used. 

OP:  A pointer  to  the  Indirect  Stack  entry  for 

the  bit  operand. 

SIZE:  The  bit  length  of  the  operand. 

S.HCOUNT:  A pointer  to  the  Indirect  Stack  entry  indicating 

the  bit  position  within  a location  the  bit 
operand  starts  at. 

Local  Variables: 

MASK:  The  mask  used. 

PTR:  A pointer  to  the  Indirect  Stack  entry  for  the  mask. 

RM:  A pointer  to  an  Indirect  Stack  entry  of  form  VAC 

used  for  shifting  the  mask  if  SHCOUNT  is  not  a 
literal. 

Communicates  via: 

Calling  routines  to  emit  code . 

Description: 

If  there  is  shift  and  the  FORM  of  the  shift's  stack  entry 
is  LITERAL,  then  the  amount  of  shift  is  known.  MASK  is  then 
XITAB(SIZE),  a string  of  I's  of  length  SIZE,  shifted  by 
VAL (SHIFT) , the  shift.  Since  the  shift  is  incorporated  into 
the  mask,  SHIFT  cari  be  set  to  zero.  Otherwise,  MASK,  the 
mask,  is  XITAB (SIZE).  GET_INTEGER_LITERAL  is  called 
to  set  up  a stack  entry  for  the  mask , and  to  get  a pointer 
to  it,  PTR.  The  type  of  this  entry  will  be  fullword  or 
halfword  integer  according  to  whether  OP  is  full  or  halfword. 
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BIT  MASK  (Con' t. ) 


If  SHIFT  is  still  non-zero,  it  represents  the  result 
of  bit  subscripting  and  has  form  VAC  or  WORK.  GET_VAC  is 
called  to  get  a pointer  to  a VAC  Indirect  Stack  fentry,  RM. 
The  register  for  this  VAC  entry  is  loaded  with  the  mask  by 
calling  LOAD_NUM,  and  BIT_SHIFT  is  called  to  shift  the 
mask  by  the  amount  represented  by  SHIFT.  CHECKJVAC  is 
called  in  case  OP  was  checkpointed  by  getting  a register 
for  the  mask.  Then  ARITH_BY_MODE  is  called  to  perform 
the  masking.  DROP_VAC  is  called  to  drop  the  entry  for  the 
mask  which  is  no  longer  needed. 

If  the  shift  is  zero,  ARITH_BY_MODE  is  still  called 
to  do  the  masking,  but  the  pointer  to  the  Indirect  Stack 
entry  for  the  mask  is  used  as  a parameter  instead  of  the 
pointer  to  the  VAC  for  the  mask  used  in  the  previous  case. 

The  stack  entry  for  the  mask  is  returned. 


(:} 
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BIT  SHIFT 


Procedure 


Purpose ; 

To  shift  bit  operands  according  to  stack  shift 
description. 

Parameters  Passed; 

OPCODE;  The  opcode  for  the  shift  type. 

R;  A pointer  to  an  Iridirect  Stack  entry  indicating 
the  shift  of  form: 

LITERAL  : if  no  subscripting  has  taken  place, 

the  entry's  VAL  is  the  shift. 

VAC/WORK;  if  bit  subscripting  has  taken  place, 
the  entry's  REG  contains  the  shift. 

FLAG;  A flag  indicating  that  if  the  shift  is  in  a register, 
the  register's  usage  should  not  be  decremented 
after  the  shift  instruction. 

Local  Variables: 


None . 


Communicates  via: 


Emitting  code. 


Description: 

BIT_SHIFT  generates  shift  instructions  according  to  the  form 
of  OP  since  the  shift  information  is  stored  in  different  fields 
of  the  stack  entry  according  to  the  form  of  the  operand.  Also, 
if  the  operand  is  not  a literal,  CHECK_VAC  must  be  called  before 
emitting  code  in  case  the  VAC  has  been  checkpointed.  After 
generating  the  code,  if  the  flag  is  not  true,  the  usage  of  the 
register  containing  the  shift  must  be  decremented* 
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H 


BIT  STORE 


Procedure 


if  4 
V'v^ 


Purpose ; 

To  generate  code  to  store  a bit  variable.  If  the 
store  is  into  a character  SUBBIT  or  double  word  scalar 
SUBBIT,  out  of  line  code  is  generated  using  GENLIBCALL ( 'DSST ' ) 
or  CHARjCALL (XCSST) . In  all  other  cases,  in-line  code 
is  generated  which  may  include; 

FORGE_ACCUMULATOR  (value  to  be  Stored) 

GUARANTEE_ADDRES SABLE  (place  to  store) 

loading  of  contents  of  place  to  store,  and  shift,  masking, 
and  ORing  operations. 

Parameters ; 

ROP;  indirect  stack  entry  for  value  to  store 

OP:  indirect  stack  entry  for  place  to  store  into 

CONFLICT;  true  if  ROP  will  be  used  again  (CSE  or  multiple  assign- 
ment) 

Local  Variables: 


BOP: 


temporary 


IMPMASK;  true  if  contents  of  register  containing  ROP 
is  scrambled. 

SHORTLIT;  true  if  ROP  is  literal  consisting  of  all  zeros 
or  all  ones  of  the  length  of  OP. 


mp- 
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BLOCK  CLOSE 


Purpose ; 

To  clean  up  at  the  end  of  a block.  If  this  is  a function 
and  close  is  reachable,  insert  run  time  error  message.  Generate 
SVC  if  not  just  a procedure/function.  Restore  previous  location 
counter  and  set  that  register  contents  are  unknown. 


5-139 


INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  * (617)  661-1840 


BLOCK  OPEN 


Procedure 
Purpose ; 

To  initialize  at  HALMAT  block  open.  Emit  identifier 
for  scope  number  in  compilation  unit.  Emit  MAXERR  and  ERRSEG. 
Emit  Z-cons  for  all  remotes.  For  each  variable  in  the  block 

if  NAME,  initialize  to  null, 
if  BIT,  set  to  zeroes, 

if  character  string,  emit  maximum  size, 

if  structure,  walk  structure  performing  above  operations 
on  the  nodes. 

Emit  standard  header  code. 

Handle  parameters  in  Registers. 

For  each  temporary,  generate  automatic  initialization  code 
via  SET  AUTO  IMPLIED. 
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CHAR  CALL 


Procedure 


Purpose ; 

To  generate  calls  to  character  manipulation  library 
routines.  The  routine  generates  load  of  all  necessary 
registers  with  some  help  from  SET_CHAR_DESC  if  there  is 
components  subscripting.  GENLIBCALL  then  actually  issues 
the  call. 


Parameters ; 

OPCODE:  the  operation  to  be  performed 

OPO:  if  /O  then  result  goes  to  address  of  OPO 

OPl:  operand 

0P2:  optional  second  operand 

0P3:  optional  third  operand  (bit  string  for  SUBBIT) 
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CHAR  INDEX 


Function 


Purpose ; 

To  initialize  at  HALMAT  block  open.  Emit  identifier  for 
scope  number  in  compilation  unit*  Emit  MAXERR  and  ERRSEG,  Emit 
Z-cons  for  all  remotes.  For  each  variable  in  the  block 

if  NAME,  initialize  to  null, 
if  character  string,  emit  maximum  size, 

if  structure,  walk  structure  performing  above  operations 
, on  the  nodes . 

Emit  standard  header  code. 

Handle  parameters. 

For  each  temporary,  generate  automatic  initialization 
code  via  SET  AUTO  IMPLIED. 
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Function 


Eili^ 


CHAR  INDEX 


Purpose ; 

To  find  an  occurrence  of  one  character  string  in 
another . 

Parameters  Passed: 


STRING!: 

The  character  string 

being 

searched. 

STRING2 : 

The  character  string 

being 

searched  for. 

Local  Variables 

1' 

LI: 

Length  of  STRINGl. 

L2 : 

Length  of  STRING2 . 

I : 

Temporary  Do  Loop  variable. 

Value  Returned: 

The  index  of  the  beginning  of  STRING2  in  STRING!  or  -I 
if  it  is  not  there. 


-r  ... 

5-143 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


jjS^! 


Procedure 


CHECK  ADDR  NEST 


Purpose ; 

To  generate  code  to  perform  a stack  walk  and  set  up  pointer 
addresses  for  addressing  of  scoped  variables  allocated  on  the  stack. 


Parameters  Passed; 

R;  The  register  used  in  addressing;  a negative  value 
means  no  register  specified. 

OP:  A pointer  to  the  Indirect  Stack  entry  whose 

•address  is  being  determined. 


Local  Variables : 


ALOC: 

The  Symbol  Table  entry 

associated  with  the 

Indirect  Stack  entry. 

SCOPE : 

SYT  SCOPE  (ALOC)  , the  CSECT 

the  variable  is 

defined  in. 

IX: 

An  index  register  used 

for 

addressing. 

Communicates  via: 

Indirect  Stack. 


References i 

The  Block  Definition  Table,  The  Local  Block  Data  area, 
addressing  the  Runtime  Stack  Frame,  Section  3. 1.1. 3, 

Scoped  Formal  Parameter  Addressing  Forms,  HAL/S-FC  Compiler 

Spec . 
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CHECK  ADDR  NEST  (Con't.) 


Description; 


If  the  Stack  entry  is  a pointer  to  a task,  program, 
or  compool,  SETUP_ADCON  is  called  to  set  up  addressing _ 
and  the  procedure  returns.  If  the  scope  of  the  entry  is 
INDEXNEST,  the  CSECT  for  which  code  is  being  generated, 
the  procedure  returns. 


If  no  register  number  has  been  specified,  GET_R  is 
called  to  get  a register  to  use,  R.  FINDAC  is  called  to 
find  an  index  register,  IX.  Then  the  appropriate  code 
emitters  are  called  to  generate  a loop,  which  goes  back 
through  the  runtime  stack  frames  until  it  finds  a frame 
whose  nest  level  equals  that  of  the  parameter.  The  code 
generated  is : 


LHI  IX,  <Block  ID> 
LR  R,  TEMPBASE 

L R, STACK  LINK(R) 


Block  ID  is  SHL(C0MPUNIT_ID,7)+SC0PE 

Load  R with  the  address  of  the  run- 
time stack  frame 
Load  R with  the  address  of  the 
preceding  frame 


CH@  IX, NEW  LOCAL_BASE(R) 


Compare  the  variable ' s scope  with 
the  scope  number  of  the  frame. 
NEW  LOCAL_BASE (R)  is  the  address 
of  the  Local  Block  Data  Area. 


BNE  -3 


The  USAGE  of  R is  2 since  there  is  one  claim  on  the 
register.  The  USAGE  of  IX  is  set  to  0 to  show  it  is  no 
longer  being  used.  OP's  stack  entry  is  changed  to  have 
form  CSYM.  This  indicates  that  it  has  its  own  base  and 
displacement  for  addressing.  The  following  fields  of 
the  entry  are  modified: 

FORM (OP)  = CSYM 

BASE (OP) ,BACKUP_REG (OP)=R  the  register  now  contains  a 

base  address  for  OP 

DISP(OP)  = SYT_DISP(ALOC) 
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CHECK  CSYM  INK 


Procedure 
Purpose ; 

To  combine  the  contents  of  an  Indirect  Stack  entry's 
index  register  with  the  contents  of  a register  containing 
a value  used  for  subscript  or  array  subscripting. 

Parameters  Passed; 

OP:  An  Indirect  Stack  entry. 

R;  A register  containing  a term  that  is  used 
for  array  and  subscript  indexing  for  OP. 


Local  Variables; 
None. 


Communications  via: 

Indirect  Stack. 

Description: 

If  the  register  has  more  than  one  user,  the  contents  of 
op's  index  register  cannot  be  combined  with  it.  If  OP  has 
a shift  associated  with  its  operand  type  and  the  self-aligning 
option  is  in  effect,  the  contents  of  INX(OP)  and  R cannot  be 
directly  combined. 

If  it  is  possible  to  combine  the  register  contents  and  OP's 
index  register  has  been  checkpointed,  the  contents  of  OP's  index 
register  are  added  to  R.  DROP_INX  is  called  to  drop  OP's 
index  register  since  it  is  no  longer  needed.  R is  marked 
unrecognizable  since  it  has  been  modified. 
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/ ; 

V.,'. 


Function 


CHECK  REMOTE 


Purpose ; 

To  check  if  an  Indirect  Stack  entry  refers  to  remote 

data. 


■40- 


Parameters  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 

Local  Variables: 

None . 

Value  Returned: 

True  if  entry  refers  to  remote  data,  false  otherwise. 
Description : 

The  entry's  form  is  checked  to  see  if  it  has  a 
corresponding  Symbol  Table  entry  using  the  SYMFORM  array. 
If  it  does,  the  entry's  flags  are  checked  for  the  REMOTE 
attribute. 


■'^1  '►■  ■■ 
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CHECK  VAC 


t 


Procedure 
Purpose ; 

To  check  an  Indirect  Stack  entry  for  a supposed  VAC, 
to  see  if  it  has  been  checkpointed. 


Parameters  Passed! 

OP:  A pointer  to  an  Indirect  Stack  entry. 

R:  An  optional  parameter  to  specify  a register  for 

. the  VAC. 

Local  Variables: 

None . 

Communicates  via: 

Indirect  Stack. 

References : 

The  procedures  CHECKPOINT_REG,  GET_VAC. 

Description: 

If  the  form  of  the  stack  entry  is  WORK,  then  the  VAC 
has  been  checkpointed.  If  R is  not  specified,  FINDAC  is  ^ 
called  to  find  a new  indexing  register,  REG (OP),  for  ^^e  VAC. 
EMIT  BY  MODE  is  called  to  load  the  register  with  the  content 
of  the  VAC.  The  usage  of  REG (OP)  is  set  to  2 to  show  there  is 
a claim  on  the  register;  the  DEL  Add  of  OP  is 

2 to  show  there  is  one  less  claim  on  the  WORD  entry  s Storage 
Descriptor  Stack  entry.  DROPSAVE  is  called  to  see  if  the 
Storage  Descriptor  Stack  entry  is  still  necessary.  The  form 
of  OP  is  changed  back  to  VAC. 


BEPBODUCBlLrry  of™ 

OKKilNAL  PAGE  B POOR 
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CHECKPOINT  REG 


Procedure 


I 


•M  >• 


i 


Purpose ; 

To  save  the  contents  of  a register  in  a temporary 
location,  and  to  modify  Indirect  Stack  Entries  refering 
to  it. 

Parameters  Passed; 

R;  The  register  to  be  saved. 

Local  Variables; 

RTYPE;  The  operand  type  contained  in  the  register. 

PTR:  A pointer  to  an  Indirect  Stack  Entry  set  up 

to  point  to  the  Storage  Desdriptor  Stack  entry 
for  the  register  contents. 

I:  A do  loop  temporary. 

Communicates  via; 

Changes  the  Indirect  Stack. 

Message  Condition; 

DIAGNOSTICS. 

Description; 

The  procedure  checks  USAGE (R)  to  see  if  it  is  worth 
saving  the  contents  of  the  register.  If  it  is,  it  calls 
GETFREESPACE  to  get  storage  for  the  register  in  the  Runtime 
Stack.  PTR  is  set  to  the  Indirect  Stack  Entry  returned 
by  GETFREESPACE.  A line  of  code  to  store  the  contents 
of  the  register  in  Temporary  Storage  is  provided  by  calling 
EMIT  BY  MODE . 
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CHECKPOINT  REG  (Con't.) 


The  WORK  USAGE  of  the  Storage  Descriptor  Stack 
describing  the  temporary  storage  is  set  to  zero.  CHECKPOINT 
REG  is  going  to  check  all  allocated  Indirect  Stack  entries 
those  whose  STACK  PTR  is  negative  , (if  they  use  the  register 
the  entries  will  be  modified  to  reflect  the  storing  of  the 
register,  and  WORK_USAGE (LOC (PTR)  and  DEL (PTR)  are  used 
to  keep  track  of  the  use  of  the  stored  entry.  There 
are  three  ways  that  an  Indirect  Stack  entry,  I,  may  use 
the  register. 


“For 

) 


1.  FORM (I)  = VAC  and  REG (I)  = R 

In  this  case,  the  form  of  the  entry  is  changed  to 
WORK,  and  the  remaining  fields  of  I are  modified 
to  agree  with  PTR's  fields.  WORK_USAGE (LOC (PTR) ) 
is  incremented. 

2.  INX(I)  = R 


In  this  case  INX(I)  is  set  to  -PTR  to  indicate  the 
register's  contents  are  stored.  If  this  is 
first  use  of  the  register  as  an  index,  indicated  by 
DEL (PTR)  = 0,  WORK_USAGE (LOC (PTR) ) is  incremented 
to  show  another  usage  for  the  Temporary  Storage. 

DEL (PTR)  is  incremented  by  two  to  show  another 
use  of  the  register,  it  corresponds  to  USAGE (R). 

3.  FORM (I)  = CSYM  and  BACKUP_REG ( I ) = R 


In  this  case,  BASE (I)  and  BACKUP_REG ( I ) are  set  to 
-PTR  to  indicate  the  register's  contents  are  stored. 
Since  the  CSYM  is  the  only  user  of  the  register, 

DEL (PTR)  is  set  to  two.  WORK_U SAGE (LOC (PTR) ) is 
incremented  to  show  another  usage  of  Temporary 
Storage. 


After  modifying  the  relevant  Indirect  Stack  entries, 

DEL (PTR)  is  checked.  If  DEL(PTR)=0,  the  stack  entry,  PTR, 
is  not  being  used,  and  is  returned.  Finally,  the  register 
is  cleared,  and  if  the  contents  of  the  register  were  DSCALAR 
R+1  is  cleared  as  well. 
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sKi: 


CHECKS I ZE 


[.- 


iJ 


Procedure 


^^^ors  Detected: 

BS  105,  Data  storage  capacity  exceeded  (Severity  1) . 

BS  120:  Data  storage  capacity  exceeded  (Severity  2). 

Purpose ; 

stack*^frame?^  storage  allocation  in  a runtime 

Parameters  Passp-d; 

NDMBER:  The  size  cf  the  storage  allocated. 

SEVERITY:  A^nu^er^used  to  detemine  which  error 

Local  Variables; 

None. 

Communicates  via; 

calling  the  appropriate  error  routine  if  necessary. 

Description: 

the  e«"o™S'^re;ort“ed“t°^ESoRS“'"'™ 
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ITIMniT'  nifi 


CLEAR  R 


Procedure 
Purpose ; 

To  clear  the  Register  Table  entries  associated 
with  a given  register. 

Parameters  Passed; 

R;  A register  number. 

Local  Variables; 

None . 

Communicates  via; 

The  Register  Table. 

Description ; 

This  procedure  sets  all  Register  Table  fields  with 
index  R to  zero. 


j 

j. 

I 
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CLEAR  REGS 


Procedure 
Purpose ; 

To  clear  the  Register  Table  entries  for  all  registers. 
Parameters  Passed; 

None . 

Local  Variables ; 

I :■  Do  Loop  temporary. 

Communicates  via; 

Register  Table. 

Description; 

CLEAR_REGS  calls  CLEAR_REG  for  each  register 
to  clear  its  Register  Table  entries. 
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cs 


Function 
Purpose ; 

To  determine  the  core  requirements  of  a character 
string. 

Parameters  Passed; 

LEN:  The  size  of  the  string. 

Local  Variables; 

None . 

Value  Returned; 

SHR(LEN,1)+LEN  & 1). 

Description; 

If  LEN  is  even,  the  value  returned  is  1/2  LEN. 

If  LEN  is  odd,  the  value  returned  is  1/2(LEN+1). 
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r 


DECODEPIP 

Procedure 

Z 

Purpose ; 

To  decode  a HALMAT  operand. 

Parameters  Passed; 

OP : The  number  of  the  operand  word  in  the  HALMAT 

instruction  which  is  to  be  decoded. 

N:  The  entry  in  the  TAG2  and  TAG3  arrays  that 

is  to  be  used. 

Communicates  via: 

Global  variables  for  the  HALMAT  operand  word  fields. 
References : 

Appendix  hi,  HAL/S- 360  Compiler  Spec. 

Description : 

DECODEPIP  takes  the  OP^^  operand  word  following  the 
current  HALMAT  operator  (pointed  to  by  CTR)  and  decodes 
j'  - It  as  follows: 


OPl 

TAG  3 

TAGl 

TAG  2 

□ 

16 

8 

4 

3 

1 

where: 

OPl : operand  field 

TAGl:  qualifier  field 

TAG2,TAG3:  tag  fields 

TAG2  and  TAG3  are  arrayed  variables  so  that  informa- 
tion about  several  HALMAT  operand  words  may  be  retained. 
DECODEPIP  uses  the  array  entry  specified  by  N. 

If  the  HALMAT  compiler  option  is  in  effect,  DECODEPIP 
outputs  the  operand  word  in  the  following  format: 

OPl (TAGl)  TAG3,  TAG2 : BLOCK# , (CTR  + OP) 
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DECODEPOP 


Procedure 
Purpose ; 

To  decode  a HALMAT  operator  word. 

Parameters  Passed; 

CTR:  A pointer  to  the  HALMAT  operator  to  be  decoded. 

Communicates  via; 

Global  variables  for  the  HALMAT  operator  word  fields . 
References : 


Appendix  A.l,  HAL/S-360  Compiler  Spec. 


Description ; 

DECODEPOP  takes  the  HALMAT  operator  pointed  to  by 
CTR  and  decodes  it  as  follows: 


TAG 

NUMOP 

CLASS 

SUBCODE/ 

OPCODE 

SOPTjO 

8 

7 

4 

8 

3 1 

CLASS  : 

The  operator  class 

NUMOP : 

Number  of  operands 

TAG: 

Tag  field 

COPT: 

pseudo-optimizer  tag  field 

IF  CLASS=0,  SUBCODE=0 

OPCODE  is  all  8 bits  of  its  field. 

otherwise,  SUBCODE:  first  3 bits 

OPCODE:  last  5 bits 

SUBCODE  and  OPCODE  are  used  for  classifying  the 
operators . 

If  the  HALMAT  compiler  option  is  in  effect,  DECODEPOP 
outputs  the  operator  word  in  the  following  format: 

S UBCODE /OPCODE (NUMOP)  TAG,  COPT ; BLOCK# , CTR 


'*»■ 
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Procedure 


DEFINE  LABEL 


Purpose  I 


To  define  the  value  of  a generated  statement  label. 
Parameters  Passed; 

PTR:  A pointer  to  an  Indirect  Stack  entry  of  form 

LBL,  FLNO. 

FLAG:  Indicates  user  defined  statement  labels  unreachable 

by  GO  TO  statements,  and  not  marking  update  blocks, 
or  otherwise  unreachable  label. 

Local  Variables: 

CODE:  The  intermediate  code  opcode  for  the  label. 

Communicates  via: 

Calling  SET_LABEL. 

Message  Conditions: 

ASSEMBLER_CODE . 

References : 

Appendix  C,  Section  on  Label  Definition  in  HAL/S-360 
Compiler  Spec*  SYT_DIMS  field  of  the  Symbol  Table. 

Description: 

If  the  stack  entry  represents  a user  defined  statement 
label,  its  type  is  checked  by  examining  SYT_DIMS.  FLAG  is 
set  if  the  label  is  unreachable  by  GOTO,  and  does  not  define 
an  Update  Block  to  indicate  to  SET_LABEL  that  the  registers 
do  not  have  to  be  cleared.  SET_LABEL  is  called  with  the 
following  parameters: 

VAL(PTR)  The  phase  2 generated  statement  number  associated 
with  the  label. 

FLAG  described  above. 

1 indicating  that  the  label  is  not  a phase  2 

generated  label. 

CODE  is  the  intermediate  code  opcode  for  the  label.  It 
will  be  ULBL  if  FORM(PTR)  is  LBL,  and  'LBL  if  FORM(PTR)  is 
FLNO.  EMITC  emits  the  output  code  indicating  the  definition 
of  the  label.  The  stack  entry  is  returned  since  it  is  no 
longer  necessary. 
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’■Wr’ 


DESC 


Function 


Purpose ; 

the^oalllng  routine  it  ^^l^exacSy^hk  it  was  passed 

rt\fe"Sf  cLrilefSc^’^^^L^lSnSl  ?tat  i?  is  a string. 


Parameters  Passed: 

D:  a character  string  descriptor  which  is  not  of 

type  CHARACTER. 

Local  Variables; 

None . 

Value  Returned; 

The  same  character  string  descriptor. 


I 
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DIMFIX 


Procedure 


Purpose ; 

To  determine  the  size  of  Indirect  Stack  entries 
and  whether  they  are  arrayed. 

Parameters  Passed; 

PTR:  A pointer  to  an  Indirect  Stack  entry. 

OPl;  A pointer  to  the  Symbol  Table  entry 
associated  with  PTR. 

Local  Variables: 

None . 

Communicates  via; 

The  global  variables  AREASAVE,  ARRAYNESS  and  the 
COPY  Indirect  Stack  field. 

Description ; 

This  routine  sets  ARRAYNESS  to  the  result  of 
GETARRAY# (OPl) , a procedure  which  returns  information 
about  the  number  of  dimensions  of  a Symbol  Table  entry, 
and  calls  SET_AREA (PTR)  to  determine  the  size  of  the 
entry. 

In  addition,  it  sets  COPY (PTR)  to  the  number  of 
array  dimensions  of  a stack  entry.  For  most  Indirect 
Stack  Entries,  this  is  ARRAYNESS.  For  terminal  nodes 
of  arrayed  structures  that  also  possess  arrayness, 
ARRAYNESS  only  indicates  the  arrayness  of  the  terminal 
node.  COPY (PTR)  must  be  set  to  ARRAYNESS+1  to  reflect 
the  extra  dimension  of  arrayness  induced  by  the  structure 
itself . 
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DO-  ASSIGNMENT 


Procedure 


Purpose ; 

Generate  code  to  store  HALMAT  operand  1 into  opepnds  2 
through  NUMOP . The  left  hand  sides  are  first  sorted  by  type 
aS  SSn  assignment  code  is  generated  for  each  type  rn  turn 
The  order  in  which  types  are  chosen  is  determined  by  ASSIGN_ 

TYPES . 

In  the  special  case  that  there  is  only  °ne  left  hand 
side,  that  the  left  hand  side  is  a halfword,  and  the  righ 
hand  side  is  a literal,  an  attempt  is  made  to  optimize  by 
generating  special  purpose  code. 

Local  variables: 

ASSIGNC:  number  of  types  of  left  sides 

ASSIGNS:  number  of  assignments  processed 

ASSIGNT:  temporary 

PROTECT  RIGHTOP:  true  unless  this  is  the  last  ^ 

assignment  to  be  generated.  This  is  used 
to  prevent  routines  from  destroying  the 
value  before  all  assignments  have  been 
made . 
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DOCLOSE 


’4k 


Procedure 
Purpose ; 

To  close  outstanding  array  do  loops. 
Parameters  Passed; 

None. 

Local  Variables; 

PTR:  Pointer  to  Indirect  Stack  entries. 

LITOP:  Never  referenced. 

Communicates  via; 

Array  Do  Loop  Stack,  code  emitting,  ADOPTR. 


References ; 

The  HALMAT  ADLP,  ALPE,  IDLP  operators,  the  Array 
DO  Loop  and  Array  Reference  Stack,  the  procedures 
CHECKPOINT_REG,  DOOPEN,  GENERATE (ADLP , IDLP,  DLPE  cases), 

SEction  3. 1.7  HAL/S  FC  Compiler  Spec. 

Description; 

If  there  are  any  outstanding  array  do  loops, 

DOCOPY (CALL_LEVEL)  > 0,  DOCLOSE  closes  them  according 
to  DOFORM(CALL_LEVEL) . 

I.  DOFORM (CALL_LEVEL) =0 : Was  set  up  for  HALMAT  ADLP  para- 
meters, except  for  simply  array 
parameters . 

Each  do  loop  outstanding  at  the  call  level  is  closed 
in  the  following  manner.  PTR  is  set  to  DOINDEX (ADOPTR) . 

ADOPTR  is  the  index  of  the  Array  Do  Loop  Stack  entries  for 
the  loop  to  be  closed;  DOINDEX (ADOPTR)  is  the  pointer  to 
the  Indirect  Stack  entry  for  the  register,  TMP,  used  as 
the  Do  loop  index.  TMP  is  BACKUP  REG (PTR)  rather  than 
REG (PTR)  because  if  the  register  Ead  been  checkpointed, 
the  value  of  REG  would  be  set  to  -1  but  BACKUP  REG 
remains  unchanged.  If  the  stack  entry's  form  Ts  WORK, 
the  register  has  been  checkpointed.  The  procedure 
CHECKPOINT^REG(TMP)  is  called  to  clear  the  register  and 
code  is  emxtted  to  load  it  with  its  former  value. 

DROPTEMP (LOC (TMP) ) is  called  to  drop  the  Temporary 
storage  used  for  the  register's  contents,  if  necessary. 

--  V . 

: 
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DOCLOSE  (Con't.) 


Code  is  emitted  to  add  DOSTEP (ADOPTR) , the  increment, 
to  the  index  register.  The  zeroeth  Indirect  Stack  entry  is 
given  PORM=AIDX  and  LOC=PTR  so  that  NEWJJSAGE(O)  can  be  called 
to  mark  all  users  of  the  index  register  unrecognizable.  If 
D0STEP=1,  the  special  case  BIX  instruction  is  generated,  which 
combines  the  increment  and  test  functions. 

PTR  is  now  set  to  the  stack  entry  for  the  final  value, 

DORANGE  (ADOPTR) . Code  is  emitted  for  comparing  the  contents 
of  TMP  or  PTR  according  to  whether  the  final  value  is  or  known 
array  size  or  an  unknown  array  size.  If  the  size  is  unknwon 
CHECK_ADDRS  NEST  must  be  called  to  check  the  scoping  of  the 
variable  before  emitting  the  code.  TMP  is  no  longer  needed 
so  its  usage  is  set  to  zero.  The  stack  entry  for  the  final 
value  is  no  longer  needed  so  it  is  returned.  EMITBFW  is 
called  to  emit  a conditional  branch  to  the  label  set  up  in 
DOOPEN  marking  the  beginning  of  the  code  within  the  loop. 

ADOPTR  is  decremented  and  the  next  array  do  loop  is  closed. 
This  process  continues  until  ADOPTR  equals  SDOPTR (CALL_LEVEL) , 
the  value  of  ADOPTR  at  the  beginning  of  the  reference.  The  number 
of  Do  Loops  closed  may  be  greater  than  the  number  opened  at  a call 
level  if  arrayness  is  pushed  from  an  outer  to  inner  level. 

II.  D0P0RM(CALL_LEVEL)=1:  IDLP  processing  - Static 

Initialization. 

In  the  static  initialization  case,  no  code  is  actually 
generated  for  array  do  loops,  rather  DOCLOSE  runs  through 
all  the  possible  values  of  the  array  indices.  For  each  set 
of  values,  the  DOBLK  and  DOCTR  values  are  used  to  position 
the  HALMAT  to  the  IDLP  operator.  NEXTCODE  is  called  to 
decode  the  following  HALMAT  instruction  and  control  goes 
to  RESTART,  the  part  of  the  main  program  that  calls 
GENERATE.  The  HALMAT  following  the  IDLP  operator  is  decoded 
with  the  new  index  values;  when  the  DLPE  operator  is  reached. 
DOCLOSE  is  called  again.  This  continues  until  all  the  array 
indices  have  been  gone  through. 

III.  DOFORM (CALL_LEVEL) =2 : Simply  array  parameters. 

No  do  loops  are  necessary  so  DOCLOSE  does  nothing. 

In  the  case  of ■ simple  structure  array  parameters 
with  arrayness,  STRUCTFIX  calls  DOOPEN  and  DOOPEN 
changes  DOFORM  to  0. 

After  all  the  do  loops  are  closed,  DOCOPY  is  set 
to  zero  to  reflect  the  end  of  the  array  reference. 
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doopen 


0 


h 


Procedure 

• 

Errors  Detected: 

BS  119: 

Exceeded  arrayness  stack  size. 

Purpose : 

up  a do  loop  to  process  a dimension  of 

To  set 

arrayness . 

Parameters  Passed: 

START : 

The  starting  value  of  the  do  loop  index. 

STEP : 

The  step  by  Which  the  index  is  incremented. 

STOP : 

^a^?a*^Sfxs''fsVo^"a  regrtfve^fofnt^^^ 

1 l^ol  Table  entry  if  the  array  sire  is 

unknown . 

T.r.nal  Variables: 

PTR: 

re^rs?rr^^arinSex"friK!ffoftL"l:^^ 

is  set  up. 

rommunicates  via^ 

The  Array  Do  Loop  Stack. 

References: 

The  HALMAT  ADLP  operator,  ^^|®J(;°Compilet  Spec, 

procedure  DOCLOSE,  Section  3.1.7  HAL/S  (t 





DOOPEN  (Con't.) 


Description; 

ADOPTR,  the  pointer  to  the  last  allocated  Array  Do 
Loop  stack  entry  is  incremented.  Several  fields  associated 
with  the  new  entry  are  assigned.  DOSTEP  is  set  to  step. 
GETSTATNO  is  called  to  get  a statement  number  to  assign 
to  DOLABEL.  This  statement  number  will  be  used  to  label 
the  beginning  of  the  code  within  the  Loop.  GET_VAC(-1) 
is  called  to  get  a register  that  can  be  used  as  an  index, 
DOINDEX  and  PTR  are  assigned  to  this  value.  BACKUP_REG (PTR) 
is  set  to  REG (PTR)  to  ensure  that  the  value  of  the 
number  of  the  register  used  as  an  index  is  saved  if  the 
register  is  checkpointed,  so  that  the  correct  code  may  be 
generated, 

DORANGE (ADOPTR)  is  set  to  a pointer  for  an  Indirect 
Stack  entry  for  the  final  loop  value  determined  by 
SET_ARRAY__SIZE  if  the  array  size  is  unknown,  and  GET_INTEGER 
LITERAL  if  it  is  known. 

The  procedure  DOCLOSE  takes  care  of  the  remaining 
code  generation  for  the  loop  including  incrementing  the 
index  and  checking  to  see  if  it  has  attained  its  final 
value . 

Before  calling  GET_VAC,  RESUME_LOCCTR (NARGINDEX)  is 
called.  This  is  to  ensure  that  the  proper  location  counter 
is  in  use;  this  call  is  needed  because  if  initialization 
is  in  progress,  the  location  counter  will  be  using  the 
data  CSECT,  DATABASE.  Once  an  index  register,  TMP,  has 
been  obtained,  LOAD_NUM  is  called  to  load  it  with  a 
starting  value.  SET_LABEL  (DOLABEL(ADOPTR)  ,1)  is  called 
to  set  the  label  marking  the  beginning  of  the  code  within 
the  loop.  The  flag  of  1 indicates  that  the  registers  do 
not  have  to  be  desired  since  there  are  no  external  GO  TOs 
to  the  label. 

TMP's  Register  Table  entry  is  updated  as  follows; 

R__G0NTENTS  = AIDX  an  array  index 

USAGE  = 3 usage  is  known 

R_VAR  = PTR  the  stack  entry  describing  it 
R TYPE  = INTEGER 
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Jd*.  'h. 

^ *- 


^tB'STZ^.t~£.^m?^' 


DROP  INX 


Procedure 


Purpose ; 


To  drop  the  index  register  used  by  an  Indirect  Stack 
entry . 


Parameters  Passed; 

OP : A pointer  to  an  Indirect  Stack  entry . 


Local  Variables; 
None. 


Communicates  via; 

Indirect  Stack. 


Description; 


OFF  INX (INX (OP))  is  called  to  decrement  the  usage  of 
INX(OP).“  INX (OP)  is  set  to  zero  to  show  there  is  no 
index  register. 
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DROP  VAC 


Procedure 


Purpose ; 


To  drop  an  Indirect  Stack  entry  set  up  as  a 
register  temporary.  ^ 

Parameters  Passed; 

PTR:  a pointer  to  the  Indirect  Stack  entry. 

Local  Variables ; 

None . 

Communicates  via; 

Indirect  Stack,  Register  Table. 

Description; 

the  form  of  the  entry  is  VAC,  the  usage  of  its 
decremented,  and  RETURN  STACK  ENTRY  is 
called  to  return  the  entry.  “ ~ 
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DROPFREESPACE 


Procedure 


Purpose ; 


To  drop  temporary  storage  space  saved  in  the 
SAVEPOINT  array. 


Parameters  Passed; 


None . 

Local  Variables; 

I;  A Do  Loop  temporary. 


Communicates  via ; 


SAVEPTR,  calling  DROPTEMP  to  modify  the  Storage 
Descriptor  Stack. 


References ; 

The  procedure  DROPSAVE. 


Description; 


DROPFREESPACE  calls  DROPTEMP  to  drop  all 

Descriotor  stack  entries  saved  in  the  SAVEPOiwi 
array?  If  SAVEPOINT  is  zero,  the  entry  has 
by  DROPOUT.  SAVEPTR  is  set  to  zero  to  indicate  th 
are  no  saved  entries  to  be  dropped. 


r'i 


• c • 
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DROPLIST 


jr 


Procedure 


Purpose ; 

To  drop  temporary  space  saved  due  to  arrayness. 

Parameters  Passed; 

LEVEL;  The  level  of  array  reference. 

Local  Variables; 

PTR;  A pointer  used  for  chaining  through  the 

ARRAYPOINT  entries  pointed  to  by  SDOTEMP (LEVEL) . 

Communicates  via; 

Calling  DROPTEMP  to  change  the  Storage  Descriptor 
Stack. 

References ; 

The  procedures  DROPSAVE,  PREE_TEMPORARY , The 
Storage  Descriptor  and  Array  Reference  Stacks. 

Description; 

SDOTEMP (LEVEL)  points  to  the  beginning  of  a linked 
list  of  Storage  Descriptor  Stack  entries  used  for  processing 
array  references  that  are  no  longer  needed.  ARRAYPOINT  of 
each  list  member  points  to  the  next  member;  ARRAYPOINT  of 
the  last  entry  is  zero.  DROPLIST  goes  down  the  linked  list 
calling  DROPTEMP  for  each  list  member.  It  leaves  SDOTEMP (LEVEL) 
equal  to  zero  indicating  that  there  are  no  unneeded  temporary 
storage  entries  left  at  that  call  level. 
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DROPOUT 


Procedure 


Purpose ! 

To  force  the  immediate  release  of  a dropped 
temporary  storage  entry. 

Parameters  Passed: 

ENTRY:  A pointer  to  an  Indirect  Stack  Entry. 

Local  Variables: 

I : , A do  loop  temporary. 

Communicates  via : 

Calling  DROPTEMP  to  change  the  Storage  Descriptor 
Stack. 

References : 

SAVEPOINT,  the  procedure  DROPSAVE. 

Description : 

ENTRY  is  checked  to  see  that  its  form  is  WORK;  if 
it  is  not,  it  does  not  represent  a Storage  Descriptor 
Stack  Entry.  If  its  form  is  WORK,  then  ENTRY  is  set 
to  LOC (ENTRY),  the  pointer  to  the  Storage  Descriptor 
Stack  entry.  SAVEPOINT,  the  array  of  entries  to  be 
dropped  is  searched  to  see  whether  it  has  been  dropped 
already.  If  it  has  not  been  dropped,  DROPTEMP  is  called 
to  drop  the  entry.  The  SAVEPOINT  entry  that  pointed  to 
ENTRY  is  set  to  zero  to  show  that  SAVEPOINT  entry  has  been 
dropped  when  DROPFREESPACE  is  called. 
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DROPSAVE 


y 


Procedure 
Purpose ; 

To  determine  if  a.  Storage  Descriptor  Stack  entry 
is  no  longer  needed,  and  if  so,  to  save  details  of  the 

entry. 

Parameters  Passed; 

ENTRY:  A pointer  to  an  Indirect  Stack  entry. 

Local  Variables: 

I,  J:  Temporary  variables. 

Communicates  via: 

The  arrays  SAVEPOINT,  ARRAYPOINT,  SDOTEMP . 

y- 

Description; 

The  Indirect  Stack  entry's  form  is  checked  since 
only  WORK  entries  represent  Storage  Descriptor  Stack 
entkes.  If  the  entry's  form  is  WORK,  a poxnter  to  the 
Storage  Descriptor  Stack  entry  is  obtained  from  the 
Indirect  Stack  entry's  LOG  field.  The  usage  of  the 
Storage  Descriptor  stack  entry,  WORKJJSAGE  is  decremented. 
If  the  entry  is  no  longer  needed,  WORK_USAGE=0 , details 
identifying  the  entry  are  saved  in  one  of  two  places: 

1)  A linked  list  pointed  to  by  SDOTEMP  of  any  currently 
nested  call  level. 

If  an  array  reference  is  being  processed  at  any  of  the 
current  levels  of  nesting  and  it  is  a simple  arrayed 

parameter  reference,  or  the  _ 

the  storage  was  allocated,  the  SDOTEMP  linked  list  is 
used.  This  ensures  the  storage  will  not  be  freed  until 
the  reference  is  completed.  The  linked 
to  by  SDOTEMP  and  linked  by  the  member  s ARRAYPOINT 
fields  is  searched  for  the  entry  since  FREE_TEMPORARY 
may  have  added  it  to  the  list.  If  the  entry  is  not 
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DROPS AVE  (Con't.) 


on  the  list,  it  is  added  to  the  beginning  of  the  list, 
and  SDOTEMP  will  point  to  it. 

2)  The  SAVEPOINT  array 

The  SAVEPOINT  array  is  searched  for  the  er>try.  If  the 
entry  is  not  there,  SAVEPTR  is  incremented  to  the  first 
free  SAVEPOINT  entry.  The  SAVEPOINT  entry  will  contain 
a pointer  to  the  Storage  Descriptor  Stack  entry.  The 
SAVEPOINT  entries  are  allocated  consecutively  and  dropped 
after  each  HAL/S  source  statement. 


'*( 


This ' approach  enables  the  compiler  to  indicate  that  a 
temporary  will  not  be  needed  after  the  current  operation  and 
to  actually  deallocate  the  space  after  code  has  been  generated 
to  perform  the  operation. 
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DROPTEMP 


Procedure 


Purpose ; 

To  release  a Storage  Descriptor  Stack  entry. 
Parameters  Passed: 


ENTRY ; 
entry. 

A pointer  to  a 

Local  Variables: 

None . 

Communicates 

via : 

Storage  Descriptor  Stack. 
References: 


Storage  Descriptor  Stack,  the  procedure  GETPREESPACE . 


Description: 


The  procedure  searches  the  linked  list  of  allocated 
Storage  Descriptor  Stack  entries  formed  by  the  entry's 
POINT  field  until  it  finds  the  entry  whose  POINT  field  is 
ENTRY.  To  do  this,  the  procedure  uses  two  temporary 
variables,  IXl  and  1X2,  providing  pointers  to  a member 
of  the  list  and  to  the  member  it  is  linked  to.  Two  pointers 
are  necessary  since  a link  may  be  removed  from  the  middle  of 
the  chain.  Chaining  continues  until  the  second  pointer  points 
to  ENTRY.  Then  UPPER (ENTRY)  is  set  to  -1  to  show  the  entry 
has  been  deallocated.  The  POINT  field  of  the  first  pointer 
is  set  to  POINT (ENTRY)  so  that  ENTRY  is  removed  from  the 
linked  list  without  breaking  the  chain. 
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Procedure 


emit  array  do 


Purpose; 

To  prepare  for  setting  up  array  do  loops  from 
HALMAT , and  to  call  DOOPEN  to  set  them  up. 

Parameters  Passed; 

LEVEL;  The  Array  Reference  Level. 

Local  Variables; 

SAVCTR;  A variable  used  to  temporarily  save  the 
pointer  to  the  current  HALMAT  operator. 

Communicates  via; 

Array  Reference  Stacks*  Calling  DOOPEN  to  set  up 
array  do  loops. 

References ; 

Array  Do  Loop  Declarations,  the  HALMAT  ADLP  operator. 
Description; 

SAVCTR  saves  the  value  of  CTR,  the  current  HALMAT 
operator,  so  that  CTR  can  take  on  the  value  of  DOCTR (LEVEL) , 
the  pointer  to  the  HALMAT  ADLP  operator  for  the  array 
reference.  Saving  CTR  is  unnecessary  when  the  procedure 
is  called  from  GENERATE,  but  is  necessary  when  it  is  called 
from  STRUCTFIX  xince  their  CTR  is  not  the  same  as  DOCTR (LEVEL) . 
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EMIT  ARRAY  DO  (Con't.) 


After  calling  SAVE_REGS  to  save  the  necessary  registers, 
a do  loop  is  opened  for  each  dimension  of  arrayness. 

There  are  DOCOPY (CALL_LEVEL)  dimensions.  Before  opening 
the  do  loop,  all  registers  in  use  much  be  checkpointed  and  the 
HALMAT  operand  word  for  the  array  dimension  decoded  by 
calling  CHECKPOINT_REG  and  DECODEPIP.  A HALMAT  ADLP 
operand  word  has  the  form  shown  below: 


OPl 


TAGl  K 


16 


TAGl  is  IMD  when  array  size  is  known;  OPl  gives  value. 

ASIZ  when  array  size  is  unknown:  OPl  gives  a 

symbol  table  reference. 

EMIT_ARRAY_DO  calls  DOOPEN  with  parameters  indicating 
an  index  starting  at  1,  with  a step  of  1.  The  third 
parameter  indicates  the  end  condition  which  is  OPl  if 
TAG1=IMD,  and  -OPl  if  TAGl=ASlZ. 

EMIT_ARRAY_DO  sets  DOFORM (LEVEL)  to  zero  to  indicate 
that  array  do  loops  have  been  set  up.  It  restores  the 
value  of  CTR  before  returning. 
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EMIT  CARD 


Procedure 


Purpose; 

To  actually  emit  a card  for  the  linkage  editor. 

Notice  that  CARDIMAGE  and  COLUMN  are  really  the  same 
array.  On  initial  entry,  a descriptor  is  built  in  DUMMY  CHAR 
so  that  COLUMN  can  be  manipulated  as  a character  string.  All 
other  times,  the  current  contents  of  COLUMN  are  output  unless 
either  no  data  is  on  the  card  or  the  type  of  card  has  not 
been  set  (i.e.  CARDIMAGE=0) . After  outputting  the  card,  the 
array  is  overwritten  with  blanks,  the  identification  field 
(CARDIMAGE  (19) ) is  set  to  "1**2",  the  card  count  is  bumped  and 
inserted  after  the  1**2. 


r - 
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EMIT  ESD  CARDS 


Purpose; 

TO  produce  SYM  and  ESD  cards.  The  SYM  cards  are 
produced  using  EMIT  SYM_CARDS.  The  ESD^car  s -ws) 

emitted  three  ESDs  t5  a card  I = 1 f 4) 

in  CARDIMAGE  columns  5,  9,  and  13  DO  J - ^ TO  1 
Since  the  actual  character  string  (not  a pointer)  must 
be  inserted,  INLINE  code  is  used  to  copy  the  string. 

Reference: 

AP-101  Support  Software/SDL  ICD  Chapter  2. 


5-176 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


EMIT  EVENT  EXPRESSION 


Procedure 


Purpose ; 

Build  the  SVC  argument  list  describing  an  event 
expression.  All  necessary  information  has  already  been 
inserted  in  EV_EXP  (by  STACK_EVENT)  and  in  EV_OP  (by 
SET  EVENT  OPERAND) . 
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emit  sym  cards 


Procedure 


Purpose; 

To  emit  SYM  cards. 


Example ;! 

Assume : 

A.  Gompilation  Unit  Name  is  COMP_UNIT,  a COMSUB 

B.  Version  humber  is  20 

C.  Stack  size  is  100  i 

D.  References  are  made  to  COMSUBS  EXTl  of  Version  10, 
and  EXT2  of  Version  100 

E.  Local  variables  are  A and  B 


The 

PC  compiler 

will  produce 

SYM  cards 

for ; 

NAIIE 

TYPE 

ADDRESS 

COMMENT  ( 

1. 

#CCOMPUN 

CSECT 

0 

Defines  CSECT 

2. 

STACK 

DSECT 

0 

3. 

STACKEND 

VAR 

100 

Address  of  100  is  stack 
size 

4. 

HALS /PC 

DSECT 

20 

Invalid  label,  HALS/PC 
or  HALS/360  used  to 
indicate  beginning  of 
version  data.  Address 
of  HALS/PC  is  the  version 
of  COMP_UNIT 

5. 

EXTl 

DSECT 

10 

Version  of  EXTl 

6 . 

EXT2 

DSECT 

100 

Version  of  EXT2 

7. 

HALS/END 

DSECT 

— 1:/5 ... 

IIM'eRMETRIC^;  NCORPORATtD  • 70;  . Of  * ;ORD  ^VONUF  * C-' ‘GE,  f.^AGOACHUGhTTS  (liflO;  •.'/)  U6iGR‘  < 


EMIT_SYM_CARDS  (Con ' t . ) 


NAME 

TYPE 

ADDRESS 

8. 

#DCOMPUN 

CSECT 

2010 

9. 

SPOPF 

10. 

A 

VAR 

2010 

11. 

B 

VAR 

2012 

COMMENT 


turn  off  storage  protect 


^5  the  compilation  unit  contains  nested  scones  a 
of  cards  (similar  to  , t-copes,  a triplet 

for  each  such  produced  after  card  7 

copy  of  card  1 is  Inserted  oSrd  f “^Notice 

litl  allocated  data  is  described  in  on^  long 

The  360  compiler  does  not  produce  cards  7 anH 
on  card  4 is  changed  to  HALS/36?.  Ca^dr^-n'a^f  n^;  prX«S? 

no  template  checking  of  assembly  Lutines  can  be  accomplished; 
Local  Procedures ; 


EMIT_SYM_CARD 

EMIT_SYM 

EM I T_S YM_DATA 
Local  Variables ; 


outputs  the  current  card  and  initializes  the 
for  next  one 

information  into  the  current 
inserts  numeric  data  into  the  current  SYM  card 


ESD  counter 
current  column  on  card 
procedure  number  counter 

pointer  to  symbol  table  entry  for  variable 
type  of  variable. 

Reference : 

HAL/S-SDL  ICD,  Chapter  2. 


I: 

J: 

B: 

P: 

T; 
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EMIT  WHILE  TEST 


Procedure 


Purpose ; 

To  emit  the  necessary  branch  instruction  or  modify 
the  branch  address  of  an  existing  instruction  so  as 
to  perform  a WHILE/UNTIL  test. 

Parameters  Passed; 

OP:  An  indirect  stack  entry  for  the  "condition"  to 

be  tested, 

LBL:.  Branch  address 
Communicates  via: 

Generating  code  and  LOCATION  array. 

Description : 

If  this  is  UNTIL,  true  and  false  conditions  are  inverted. 

If  OP  is  a RELATIONAL  then  generate  branch  instruction  using 
condition  in  REG (OP).  If  OP  is  not  a relational  then  the  necessary 
branch  instructions  have  already  been  generated  in  evaluating 
an  expression  FIX_INTLBL  is  used  to  set  the  true  branch 
to  jump  to  LBL  and  SET_LABEL  is  used  to  define  the  label 
point  for  the  false  branch  to  be  the  current  location  yielding 
the  effect  of  falling  through. 

In  all  cases,  return  the  stack  entry  for  OP. 


U'FY  OF  TEF 
POOR 
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EMITSTRING 


Procedure 


Purpose ; 

To  emit  a string  into  the  intermediate  code  file. 

The  routine  is  complicated  because  a normal  string  assig- 
ment  only  copies  a pointer,  not  the  actual  string;  there- 
fore, INLINE  code  must  be  used  to  actually  copy  the  string. 
In  the  PC  compiler,  a translation  is  made  from  EBCDIC  to 
DEU  code. 


Parameters ; 
STRING : 
ILEN: 


The  literal  to  be  emitted. 

The  maximum  length  that  the  string  can  attain . 
This  is  necessary  when  EMITSTRING  is  used  to 
perform  static  initialization. 


B 

^ 5-181 

J INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


ENTER_CHAR_LIT 

Function 


Purpose ; 

To  enter  a literal  string  into  LIT_CHAR.  This  routine 
is  necessary  because  a normal  XPL  character  string  assignment 
moves  descriptors,  not  strings.  LIT_CHAR  must  actually 
contain  the  string.  If  not,  when  string  storage  is  compacti- 
tied, strings  pointed  to  from  LIT  pages  not  in  core  would  be 
garbage  collected. 

Parameters : 

STR;  a character  string  to  be  moved  to  LITjCHAR. 
Returns;  a pointer  into  LIT_CHAR. 
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EXPONENTIAL 


Procedure 


Purpose; 

To  generate  code  for  A®.  If  B is  a positive  integer 
constant  and  DATATYPE (A)  is  scalar  then  special  purposl 
code  is  emitted  to  do  successive  multiplies;  otherwise, 

^ forced  into  accumulators  and  a library 

call  IS  generated.  ^ 

Parameters ; 


OPCODE:  opcode  part  of  HALMAT  instruction. 

Local  Variables; 

R:  register  containing  a’  where  ? is  a power  of  2 

WRK;  register  containing  partial  result 

I:  what  remains  of  B after  some  multiplications 

have  been  generated 

EXP_RCLASS;  A mapping  from  TYPE  to  the  register 
type  required  for  exponentiating  TYPE. 
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Procedure 


FIX  INTLBL 


Purpose ; 

To  generate  effect  of  identifying  an  internal 
flow  label  with  a phase  2 statement  number. 

Parameters  Passed; 

LBL:  internal  flow  number 

STATNO;  phase  2 statement  number 

Communicates  via; 

LABEL_ARRAY,  LOCATION,  and  code  generation. 
Description ; 

If  LBL  is  already  defined,  define  STATNO  to  be  the 
current  location  and  generate  an  unconditional  jump  to 
LBL;  otherwise,  define  LBL  to  have  the  same  LOCATION  as 
STATNO. 


I 5-184 

INTERMETRICS  INCORPORATED  - 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


Procedure 


FIX  LABEL 


Purpose ; 

To  redefine  the  destination  of  a statement  number. 
Parameters  Passed; 

LABI:  The  statement  number  whose  location  is  to 

be  redefined. 

LAB2:  The  new  destination  of  the  statement. 

Local  Variables: 

None . 

Message  Condition: 

ASSEMBLER_CODE. 

Description: 

LOCATION (LABI)  is  set  to  -LAB2  to  indicate  its 
destination  is  the  same  as  LAB2.  A positive  LOCATION 
value  is  the  actual  destination  of  the  label,  a negative 
value  indicates  the  index  in  LOCATION  to  try  to  find  the 
destination . 
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FIX_STRUCT_INX 

Procedure 
Purpose ; 

To  combine  the  contents  of  a register  used  for  computing 
an  array  or  subscript  indexing  term  for  an  Indirect  Stack 
entry  with  the  entry's  index  register,  and  aligning  absolute 
index  values  if  self  alignment  is  present. 

Parameters  Passed; 

IX;  A register  used  to  compute  an  array  of  subscript 
indexing  term. 

OP:  A pointer  to  the  Indirect  Stack  entry  that  the  indexing 

term  will  be  used  to  address. 

Local  Variables: 

SHFT : The  shift  associated  with  OP's  operand  type. 

R;  An  index  register. 

TEMP;  A temporary  pointer  to  an  Indirect  Stack  entry. 
Communications  via; 

Indirect  Stack,  Emitting  code. 

Description : 

If  IX  is  not  zero,  CHECK_CSYM_INDEX  is  called  to  see 
whether  OP's  index _ should  be  combined  with  the  contents  of 
IX.  If  it  is  combined,  INX(OP)  will  be  set  to  zero  by  CHECK 
CSYM_INX,  and  FIX_STRUCT_INX  will  set  it  to  IX  and  return.  “ 
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FIX  STRUCT  INX  (Con't.) 


If  INX (OP)  is  not  zero,  OP  has  an  index  register.  If  | 
the  register  has  been  checkpointed,  FINDAC  is  called  to  find 
an  index  register  that  can  be  loaded  with  the  stored  index  value. 
If  the  SELF  ALIGNING  option  is  in  effect  yERIFY_INX_USAGE  is 
called  to  protect  any  other  users  of  hhe  index  register  before 
it  is  modified.  Then  the  absolute  contents  of  the  index 
register  are  re-aligned  by  shifting  them  right.  This  is 
necessary  because  at  this  point  the  index  register  is  used 
only  for  addressing  structures  and  since  structure  nodes 
do  not  all  have  the  same  halfword  width  so  the  index  is 
absolute  and  must  be  shifted  to  take  into  account  the  automatic 
alignment'. 

VERIFY_INX_USAGE  is  called  to  protect  any  users  of  OP's 
index  register  in  case  the  procedure  was  not  called 
previously  since  the  self —aligning  option  was  not  in  effect. 

The  contents  of  IX  are  added  to  the  contents  of  INX (OP). 
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FORCE  ACCUMULATOR 


Function 
Purpose ; 

To  generate  code  to  force  a value  into  an  accumulator. 

If  the  value  is  not  a VAC,  an  attempt  is  made  to  find  it  in 
a register  both  shifted  and  not  shifted.  If  necessary,  an 
existing  register  copy  is  copied.  If  all  else  fails,  code  to 
load  the  register  is  issued. 

Returns ; 

Register  containing  the  value. 

Parameters ; 

OP:  indirect  stack  entry  for  value  to  be  loaded 

OPTYPE:  desired  type  in  register 

ACCLASS:  type  of  register  desired 

SHIFTCT:  shift  to  be  applied  to  value  (useful  if  value  will 

be  used  as  an  index) 
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FORCE  ADDRESS 


Procedure 


Purpose ; 


To  generate  code  to  force  an  address  pointer  of  the 
right  type  into  a register,  including  storing  the  current 
contents  if  necessary. 


Parameters: 


TR: 


OP; 


the  register  number,  if  TR  < 0 then  routine 
will  GET_R 

indirect  stack  entry  for  item  whose  address 
is  interesting 


pr.AG-  reserve  register  (i.e.  USAGE=2) 

^0  otherwise 

PORJSIAME:  pointer  should  be  of  type  suitable  for  a 

name  assignment 

BY_nAME:  pointer  should  be  of  type  suitable  for  ASSIGN 

parameter.  This  may  be  a pointer  to  a pointer. 
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FORCE  BY  MODE 


Procedure 


Purpose ; 


To  generate  code  to  force  an  element  into  an  accumulator 
(FORCE_ACCUMULATOR)  and  do  all  necessary  type  conversions. 

Parameters ; 

OP:  indirect  stack  entry  for  item  desired 

MODE:  type  item  should  be  forced  to 

RTYPE;  type  of  accumulator  desired,  if  0 then  PORCE_ 
ACCUMULATOR  will  make  an  automatic  choice 
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FORM  BD 


Procedure 


Purpose ! 

To  form  a base  (B)  displacement  (D)  pair  for  an  address. 

Most  cases  are  simple,  the  bulk  of  the  code  simply  formats 
listing.  For  relocateable  entries,  an  attempt  is  made  to  base 
them  off  PROGBASE  instead.  Relocateable  entries  with  negative 
displacements  become  positive  displacements  with  a flag  in 
RLD  REF.  Branch  displacements  are  in  turn  handled  by  an  internal 
routine  FORM_BADDR. 

In  FORMBADDR 

SRSTYPE  will  only  occur  for  a specific  pair  of  branch  forward 
branch  backward  instructions.  Otherwise,  negative  displacements 
are  handled  by  the  bit  immediately  before  the  displacement.  If 
the  displacement  is  too  large,  switch  to  extended  addressing. 
Notice  that  extended  addresses  must  be  relocated. 

Parameters ; 

I;  The  LHS-RHS  subscript  for  addressing  the  argument. 
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FORMAT 

Function 
Purpose ; 

To  formsit  fixed  numbers  to  strings  of  a specific 
length. 

Parameters  Passed; 

IVAL:  A fixed  number. 

N:  The  minimum  length  of  the  resulting  string. 

Local  Variables; 

STRING:  A temporary  character  string. 

Value  Returned: 

A character  string  of  the  number  padded  with  blanks  on 
the  left,  if  necessary. 
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i 


FREE  ARRAYNESS 


Procedure 


Purpose ; 

To  generate  implicit  subscripting  for  arrays  and  structures 
with  copies  which  do  not  have  explicit  subscripts.  There  is 
something  to  be  done  only  if  the  context  has  arrayness  (DOCOPY  > 0) 
and  the  variable  has  arrayness  (COPY  > 0) . 

If  this  is  not  static  initialization  then  try  to  optimize 
by  searching  register  tables  for  a register  already  containing  the 
index  required.  If  optimization  cannot  be  done  because  there  are 
too  many  dimensions  or  the  size  of  the  variable  is  too  hard  to 
handle,  then  generate  code.  For  static  initialization,  the 
addressing  computation  is  done  right  here. 
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GEN  ARRAY  TEMP 


Function 


Purpose; 

To  generate  a temporary  copy  of  an  array  or  multiple  copy 
structure.  The  size  of  the  required  AREA  is  computed  and  allocated 
using  GETPREESPACE . Then  the  array  is  copied  to  the  temporary. 

Parameters : 

OP:  indirect  stack  entry  for  array 

LTYPE;  type  of  entry  in  array 
CONTEXT:  if  > 0 then  take  LTYPE  from  OP 

Returns ; 

Stack  entry  for  copy. 
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GEN  STORE 
- 

Procedure 


Purpose; 

To  generate  code  to  store  a value.  This 
FORCE  ACCUMULATOR  to  load  the  value  if  necessary,  GUARANTEE^ 
ADDRESSABLE  followed  by  EMIT_BY_MODE  (store) , updating  the 
register  stack  if  this  is  a KNOWN_SYM. 


Parameters ; 

ROP;  stack  entry  for  value  to  store 
OP;  stack  entry  for  place  to  store  into 

FLAG;  if  false,  decrement  usage  of  REG (OP) 

BY  NAME;  if  true,  value  is  a pointer  which  should  not 


be  dereferenced 
Local  Variables; 

R;  the  register  containing  the  value 
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GENERATE 


Procedure 


Reference : 

HALMAT  is  defined  in  Appendix  A of  the  HAL/S-360 
Compiler  System  Specification. 

Purpose ; 

Translate  HALMAT  to  intermediate  code. 

GENERATE  makes  a pass  over  the  current  HALMAT  block. 

It  processes  one  source  statement  at  a time,  calling  OPTIMISE 
to  set  up  the  next  statement.  Notice  that  since  OPTIMISE 
prescans  all  the  HALMAT  for  an  entire  source  statement, 

GENERATE  has  advance  warning  about  interesting  subjects. 

The  procedure  is  a do  while  "there's  some  HALMAT  left  in  the 
block",  which  is  immediately  broken  into  several  disjoint 
subparts  by  a do  case  on  the  CLASS  of  the  HALMAT  operator. 

After  processing  each  HALMAT  instruction,  DROPFREESPACE  returns 
no  longer  needed  runtime  temporaries  and  NEXTCODE  advances 
to  the  next  HALMAT  instruction. 

CLASS=0  I " 

NOP  (A-6) 


Do  nothing. 

EXTN  (A-87) 

Do  nothing  now. 

XREC  (A-6) 

Return  to  main  program  indicating  end  of  HALMAT  if 
appropriate , 


IMRK  & SMRK  (A-6,  7) 

Clean  up  after  statement  and  prepare  next  statement 
IFHD  (A-49) 

Mark  beginning  of  IF  statement. 


eWRODUOBILI'K  of  thf 
Sal  PAGE  IS  POOB 
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GENERATE  (Con ' t . ) 


Xiir 


LBL  (A-49) 

Define  the  label  unless  it  is  an  unused  exit  label  of 
an  IF  statement. 

BRA  (A-50) 

If  branch  not  redundant,  emit  unconditional  branch. 

FBRA  (A-50) 

Emit  code  or  fill  in  addresses  in  existing  instructions 
to  perform  branch  on  false. 

DCAS  (A-51) 

Initialize  for  DO  CASE  and  generate  Standard  code 
to  perform  case  selection. 

ECAS  (A~52) 

Set  up  table  of  indirect  jumps  to  actually  get  to 
individual  cases,  define  a label  for  the  location  after 
all  cases. 

CLBL  (A-51) 

Generate  jump  to  the  location  after  the  DO  CASE  statement; 
if  this  is  not  the  last  case,  define  the  flow  number  of  this 
one  and  link  it  into  the  list  built  in  LABEL_ARRAY. 

DTST  (A-52) 

If  this  is  DO  UNTIL,  generate  jump  around  test;  define 
beginning  of  loop. 

ETST  (A-53) 

Generate  jump  back  to  the  beginning  of  the  loop;  define 
a label  for  the  location  after  the  loop;  free  temporary  storage. 

DFOR  (A-54,55) 

Set  DOTYFE  equal  to  tag  field  (n.b.  the  description 
of  the  tag  field  is  given  in  the  compiler  spec,  is  wrong. 

The  flag  for  WHILE/TJNTIL  is  actually  only  for  UNTIL).  DOFOROP 
becomes  index  variable;  if  this  is  DO  FOR  UNTIL,  get  a location 
for  a boolean  and  generate  code  to  initialize  it  to  zero;  allo- 
cate space  for  temporaries  if  this  is  DO  FOR  TEMPORARY; 
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GENERATE 


Iterative  Case 

ro%rpe"“ervrrrari“  up 

Sa?rsI?S  information  for  location  of  do  index 

fof rinreS,^lf“tS^i-n«  =-  to  teat 

Lolean  flag  for  first-time  through. 


Discrete  Case 

This  is  aimple  because  =“^i"|orvaIuf 

is  generated  by  AFOR  instructions,  get  space  to 

and  do  check  points  if  necessary. 

EFOR  (A-57) 

Define  label  which  is  end  of  loop;  in  normal-situation 
DOTYPE  7^  "FF"  . 

discrete  case 

Generate  subroutine  return  style  code, 
iterative  case 

Generate  c^IT to  increment  do  index,  compare  with 
value,  and  branch  back. 

Define  label  for  code  after  loop;  drop  temporary 
storagf and  descriptions  for  loop  parameters. 

in  abnormal  situation,  DOTYPE  = "FF" ; 

define  label  for  location  after  loop 
lower  do  level 
issue  error  message 

CFOR  (A-56) 

At  this  point  loop  ^“'^®^?°'*®„52'^to°pSrform'^WMLE/ 
condition  have  been  issued  ^Jt  code  to 

rallortbiprinrarofnfuETXI.  ^code  on  first  iteration. 

DSMP  (A-57) 

Bump  DO  LEVEL. 
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"Ml 


GENERATE 


ESMP  (A-57) 

If  anybody  needed  the  address  of  the  end  of  the  loop, 
define  it;  free  temporaries  used  in  loop. 

AFOR  (A-56) 

Increment  flow  number  counter  DOFORCLBL  (n.b.  these 
flow  numbers  are  never  used) ; generate  code  to  put  next 
value  of  index  in  proper  place;  If  this  is  not  last  value 
( i . e . TAG=0 ) then : 

Generate  subroutine  call  style  code 

Define  DOFORCLBL  flow  label  as  current  location 

If  this  is  the  last  value  (i.e.  TAG=1)  : 

Generate  code  to  load  the  address  of  the  instruction  after  the 
loop  into  LINKREG  so  that  loop  will  exit  instead  of  looping. 

The  code  will  fall  into  the  loop  so  no  branch  is 
necessary  . 

Define  label  for  beginning  of  loop  code.  Notice 
that  WHILE/UNTIL  code  is  part  of  loop. 

Generate  code  to  save  linkage  register  so  that 
code  can  get  next  index  value  . 

Set  up  descriptor  of  register  containing  DO  index . 

Generate  code  to  store  DO  index. 

Generate  code  to  skip  UNTIL. 

Check  on  first  index  value  if  appropriate. 


CTST  (A-53) 


Generate  code  to  perform  WHILE/UNTIL  test  and 
label  for  skipping  UNTIL  test. 

ADLP  (A-85) 

Initialize  tables  for  constructing  do  loop  for  arrayed 
expression  and  generate  initial  code  in  complicated  cases. 

DLPE  (A-86) 

Generate  end  of  loop  code  and  clean  up. 
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GENERATE 


DSUB  (A-89,  95) 

Generate  all  necessary  code  to  evaluate  subscript 
expression  and  put  value  of  expression  in  an  index  register. 

NAME_SUB  = 1 if  in  name  pseudo 

LITTYPE  = real  tag 

TAG  = real  tag 

TMP  = 1 if  in  name  pseudo  and  assignment  context 

ALCOP  = stack  entry  for  item  to  be  subscripted 

TERMFLAG  = boolean  1 - matrix  subscript 

0 - no 

SUB#  = # of  the  current  subscript.  Notice  that 

many  kinds  of  subscripts  have  more  than  one 
operand  associated  with  them  (see  SUBOP) . 

LEFTOP  = Stack  entry  for  accumulated  subscript. 

SUBOP  = The  number  of  the  current  operand.  Notice  that 

sometimes  several  operands  make  up  one  subscript. 

This  value  is  changed  by  subroutines  called  by  GENERATE 

RIGHTOP  = stack  entry  for  subscript. 

EXTOP  = stack  entry  for  second  part  of  subscript  in 

TO  and  AT  subscripts. 

Notice  that  the  code  at  DO_DSUB  is  referenced  also 
from  many  class  1 operations. 

IDLP  (A-86) 

Set  up  array  do  loop  parameters  to  describe  the 
arrayness  as  copied  from  the  IDLP  operands. 

TSUB  (A-88,  94) 

Similar  to  a very  stripped  down  DSUB.  There  is  only  one 
level  of  subscripting  and  that  applies  across  the  entire  structure. 
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GENERATE 


^ PCAL  (A-61) 

Check  that  we  are  not  in  a nested  function  call  (n.b. 

TAG  will  be  0) ; make  stack  entry  for  procedure  name; 

If  normal  HAL  procedure 

Generate  set-up  code  using  PROC_FUNC_SETUP 

Generate  subroutine  branch  code  using  PROC_FUNC_CALL . 

Otherwise, 

DO  equivalent  for  non-HAL 

This  will  actuall  generate  a "NOT  IMPLEMENTED" 
error  on  the  FC  compiler. 

FCAL  (A-61) 


Check  that  we  are  nested  to  the  proper  depth  in  function 
calls;  make  stack  entry  for  function  name; 

If  normal  HAL  function: 

Generate  set-up  code  using  PROC_FUNC_SETUP 

Set  up  indirect  stack  entry  and  needed  run-time 
temporaries  using  GET  _FUNC_RESULT 

Generate  subroutine  branch  code  using  PROC_FUNC_CALL 

If  result  will  be  returned  in  a register,  set  up 
register  stack  description  of  it. 

If  non-HAL  function,  similar  to  PCAL 
(not  implemented  on  FC) 

Replace  the  HALMAT  FCAL  instruction  with  indirect  stack 
pointer  for  RESULT. 

FILE  (A-63) 


Generate  code  to  do  library  call.  Notice  that  the  argu- 
ment is  passed  according  to  non-HAL  conventions. 


5-201 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  ■ (617)  661-1840 


GENERATE 


XXST  (A-58) 

Save  existing  status  so  it  can  be  restored;  Set 
CALL_LEVEL  to  that  indicated  in  instruction.  Note  that 
since  this  could  be  a call  moved  out  of  a nest,  TAG  may 
not  be  CALL_LEVEL+1. 

If  this  is  I/O  then  temporarily  set  HALMAT  instruction 
counter  to  point  to  the  I/O  instruction  involved  and  call 
lOINIT  for  appropriate  initialization  for  specific  type  of 
I/O.  READCTR  was  set  in  OPTIMISE. 

If  this  is  not  I/O  then  set  up  stack  entry  for  routine; 
set  that  this  is  HAL-type;  check  that  routine  is  already 
defined;  extract  information  from  symbol  table  and  block 
definition  table  and  insert  it  in  the  call  stack. 

Return  stack  entry.  Copy  array-do-loop  entry  from 
enclosing  level  to  this  level  using  PUSH_ARRAYNESS . 

XXND  (A-59) 

Restore  CALL_LEVEL  and  ARG_STACK_PTR  to  their  values 
in  outer  level. 

XXAR  (A-58,  94) 

Check  that  nest  level  is  consistent.  Check  that  argu- 
ment stack  has  not  overflowed.  If  normal  procedure/function 
call  get  argument  type  from  symbol  table;  otherwise,  from 
instruction. 

ARG_NAME  indicates  if  argument  is  of  name  type. 

TMP  indicates  assign  if  argument  is  of  name  type. 

Get  indirect  stack  enrry  for  argument. 

If  this  is  I/O  then  process  using  SET_IO_LIST. 

If  not  I/O,  then  update  information  if  assign  argument, 
and  update  ARG_STACK,  ARG_STACK_PTR,  ARG_COUNTER,  and  ARG_POINTER. 

Also,  if  not  I/O  and  this  is  the  call  level  of  a previous 
ADLP  operator,  then  generate  necessary  temporaries  depending 
on  form. 
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GENERATE 


TDEF,  MDEF/  FDEF,  PDEF , UDEF , CDEF  (,A-8,9) 

Call  BLOCKjOPEN  to  set  up  block  definitions. 

CLOS  (A-9) 

Check  that  close  is  at  correct  level  and  call  BLOCK_CLOSE. 

EDCL  (A-9) 

RESUME_LOCCTR  to  Code  Csect  and. set  that  declarations 
are  finished. 

RTRN  (A-10) 

For  functions,  generate  code  to  return  result. 

Generate  jump  to  return. 

WAIT  (A-77) 

Allocate  run  time  space  and  generate  code  to  perform 
WAIT  SVC. 

SGNL  (A-77) 

Allocate  run  time  space  and  generate  code  to  perform 
SIGNAL,  SET,  or  RESET  SVC. 

CANC  or  TERM  (A-78) 

CALL  SETUP_CANC_OR_TERM. 

PRIO  (A-79) 

Allocate  run  time  space  and  generate  code  to  perform 
an  UPDATE  PRIORITY  SVC . 

SCHD  (A-79) 

Allocate  run  time  space  and  generate  code  to  perform 
a SCHEDULE  SVC. 

ERON  (A-76) 

Generate  code  to  manipulate  runtime  error  stack 
for  ON  ERROR  and  OFF  ERROR  statements. 

ERSE  (A-76) 

Generate  SVC  instruction  to  perform  SEND  ERROR. 
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GENERATE 


MSHP  (A-73) 

Allocate  runtime  temporary  and  then  generate  code  to 
perform  shaping  using  SHAPING_FUNGTIONS . 

VSHP  (A-73) 

Identical  to  MSHP  with  ROW=l. 

SSHP  (A-71) 

Essentially  the  same  as  MSHP. 

ISHP  (A-72) 

Identical  to  ISHP  with  OPTYPE=INTEGER. 

SFST  (A-59) 

Set  up  call  stack  for  shaping  function  call. 

SEND  (A-60) 

Pop  up  call  stack. 

SPAR 

Stack  argument  for  later  processing  by  SHAPING_ 
FUNCTIONS . 

BFNC  (A-64) 

Generate  code  to  call  (or  perform  in-line)  built-in 
function. 

LFNC  (A-75) 

Get  runtime  temporary  and  generate  code  to  perform 
library  call  for  list-type  built-in  functions. 
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l!^: 


GENERATE 


TNEQ , TEOU 


Set  Structures  to  be  Compared. 

thL  L SeS  °''r  Other ; depending  on  whether 

n?  ^4.  Generate  code  to  compare  the  entirety 

f,ua„__4.  Structures.  Notice  that  if  the  structures  contain 

lenath^dL«^^!h^h'  filler  between  current  length  and  max 
length  does  not  have  to  match,  consequently,  structures 
containing  character  strings  must  be  compared  node  by  node. 

TASN 

Generate  code  to  copy  the  strutcure. 

IDEF  (A-10) 

Generate  code  to  save  registers,  call  BLOCK  OPEN  and 
set  aside  space  to  receive  inline  function  result. 

ICLS  (A-10) 

Call  BLOCK_CLOSE  to  finish  off  inline  function. 

NNEQ  (A-92) 

Generate  code  to  compare  the  two  NAME  operands  and 
jump  accordingly. 

NEQV  (A-92) 

Identical  to  NNEQ, 

NASN  (A-91) 

to  arSumeSt®l!°‘^®  2,  3,  ...,  a pointer 

PMHD  (A-96) 

Initialize-fot  IMACRO. 

PMAR  (A-96) 

Put  %MACRO  argument  into  ARG_STACK. 

PMIN  (A-96) 

Generate  in-line  code  to  perform  a %MACRO. 
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-Th 


GENERATE 


CLASS  1 OPCODES 
SUBCODE  = 0 

TAG^O  implies  event  operation 

GET_EVENT_OPERANDS 

EVENT_OPERATOR 

EMIT_EVENT_EXPRESSION  when  expression  is  complete . 

This  HALMAT  is  generated  only  for  real  time  statements. 

Notice  that  code  is  not  built  to  evaluate  the  expression. 
Rather,  the  events  and  operators  are  put  together  into  an 
agrument  for  an  SVC  call.  The  supervisor  will  actually 
evaluate  the  expression. 

TAG=0 

BASN  (A-29) 

DO_ASSIGNMENT. 

BAND  (A-31) 

EVALUATE (BAND) . 

BOR  (A-31) 

EVALUATE (BOR) . 

BNOT 

If  next  operation  is  "convert  to  relation"  then 
just  set  some  flags;  otherwise,  EVALUATE (BNOT) . 

BOAT  (A-30) 

Emit  code  to  shift  and  OR  operands. 

Do  not  forget  the  code  at  the  very  end  of  the  case 
statement  for  class  1.  This  code  processes  all  the  sub- 
scripts operands,  regardless  of  opcode. 


■m 
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GENERATE 


L >- 


h 


SUBG0DE=1 


BTOB  (A-36) 

Just  process  subscripts. 
BTOQ  (A-38) 

Just  process  subscripts. 


SUBCODE=2 

CTOB  (A-36) 

Generate  code  to  transform  from  character  to  bit 
string  and  then  process  subscripts. 


SUBC0DE=5 

STOB  (A-35) 

Generate  code  to  force  into  accumulator  as  integer 
and  then  process  subscripts. 

STOQ  (A-37) 

If  operand  is  single  precision,  just  process  subscript 
normally;  otherwise,  generate  appropriate  code  for  all 
possible  component  subscripting  of  bit  string. 


SUBC0DE=6 

ITOB  (A-35) 

Just  handle  subscripts. 
ITOQ  (A-37) 

Just  handle  subscripts. 
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inmrjBtn 


sSid^SSSS*. 


GENERATE 


i 


CLASS  2 OPCODES 

SUBCODE=0 

CASN  (A-29) 

Create  temporary  copy  if  necessary.  Call  CHARjCALL 
for  each  left  hand  side. 

CCAT  (A-30) 

Get  temporary  space  for  result.  Call  CHARjCALL. 

SUBC0DE=1 

BTOC  (A-34) 

NTOC  (operand)  and  then  handle  subscript, 

SUBCODE=2 

CTOC  (A-34) 

Just  handle  subscript. 


SUBCODE=5 

STOC  (A-33) 
See  BTOC . 

SUBC0DE=6 

ITOC  (A-33) 
See  BTOC. 


»RODtJCIBiLia^  OF  the 

ORIGBSfAL  PAGE  IS  POOP 


I 
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GENERATE 


CLASS  3 OPCODES 


SUBCODE=0 

MASN  (A-21) 

VECMAT_ASSIGN  (each  left  side,  right  side). 

SUBCODE=l 

MTRA  (A-23) 


The  code  from  MAT_TEMP  up  to  MAT  CALL  is  entered 
from  several  places  to  check  for  Vector-Matrix  Optimiza- 
txon  possibilities.  This  code  then  enters  MAT  CALL 
which  uses  VMCALL  to  generate  the  appropriate  Tibrary 


CHECK_ASSIGN  (which  calls  CHECK_SRCE)  checks  the 
overall  conditions  specified  in  the  HAL/S-FC  Compiler 
System  Specification,  Section  3.1. 5.5  and  sets  OK_TO_ASSIGN 
true  if  the  current  operation  is  a good  candidate.  The  code 
at  MAT_TEMP  checks  the  four  alternate  conditions  specified  and 
branches  to; 

*•  STACK_ENTRy_^ASN  if  the  optimization  is  to  be  performed. 
Here,  the  HALMAT  location  counter  is  advanced  to  the 
assignment  operator  and  RESULT  is  set  to  the  result 
operand  of  the  assignment* 

'•■TEMP_ASN  if  optimization  is  impossible.  RESULT  is 
set  to  a temporary. 

For  MTRA  instruction 

ARG_ASSEMBLE 
goto  MAT  TEMP 


SUBC0DE=2 

MNEG  (A-22) 

OPCODEt^XXASN,  ARG_ASSEMBLE 
goto  MAT_TEMP 

MTOM  (A-20) 

OPCODE  = XXASN 

VECMAT_CONVERT  (operand)  if  necessary. 
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GENERATE 


SUBC0DE=3 

MADD  (A-21);  MSUB,  MMPR  (A-22) 

ARG_ASSEMBLE 
goto  MAT_TEMP 

SUBC0DE=4 

WPR  (A-24) 

ARG_ASSEMBLE 
goto  MAT  TEMP 


SUBC0DE=5 

MSPR,  MSDV  (A-24) 

MIX_ASSEMBLE 
goto  MAT  TEMP 


I SUBC0DE=6 

MEXP  (A-23) 

If  exponent  <-l,  generate  inverse  and  fall  into 
I code  for  positive  exponent. 

I If  exponent  >1,  set  OPCODE  to  exponentiate, 

1 ■ 

Allocate  temporary  space  for  computing  inverse  or 
j successive  multiplications. 

1^^^^  ^ goto  MAT  TEMP . 
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.4  ^ CLASS  4 OPERATIONS 

■'tJ' 

SUBCODE=0 

VASN  (A"25) 

S66  CXsss  3« 

SUBCODE=2 

VNEG  (A-27),  VTOV  (A-25) 

See  Class  3. 

SUBCODE=3 

VMPR  (A-26),  MVPR  (A-27) 

ARG_ASSEMBLE 
goto  MAT_TEMP 

SUBCODE=4 

r;  VADD,  VSUB  (A-26) f VCRS  (A-27) 

ARG_ASSEMBLE 
goto  MAT_TEMP 

SUBCODE=5 

VSPR,  VSDV  (A-28) 

MIX_ASSEMBLE 
goto  MAT  TEMP 


_ •*  .-r  -'•sx.  a*' 


GENERATE 


jfS!-. 
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CLASS  5 OPERATIONS 

SUBCODE=0 

SASN  (A-13) 
DO_ASSIGNMENT 

SUBCODE=l 

BTOS  (A-12) 

FORCE_BY  MODE  (operand) 


GENERATE 


"*»► 


SUBCODE=2 

CTOS  (A-12) 
CTON  (operand) 


SUBC0DE=3 

SIEX  (A-15),  SPEX  (A-16) 
EXPONENTIAL  ( opcode ) 

SUBC0DE=4 

VDOT  (A-16) 

ARG_ASSEMBLE 
VMGALL  (vdot,  ... 


SUBCODE=5 

STOS  (A-13);  SADD,  SSUB,  SSDV  (A-14);  SSPR,  SEXP  (A-15) 

For  STOS  — GET_OPERANDS  (operand,  DSCAL)  and 
£'OKtE_ACCUMULATOR  (operand,  DSCALAR)  if  necessary. 

For  non-exponentials  — EVALUATE  (opcode) 

for  SEXP  — EXPONENTIAL  (opcode) 
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SUBC0DE=6 

ITOS  (A-13) 

FORCE  BY  MODE  or  LITERAL. 


CLASS  6 OPERATIONS 

lASN  (A-18) 

DO_ASSIGNMENT 
BTOI  (A-17) 

If  operand  is  not  literal  FORCE_ACCUMULATOR . 

CTOI  (A-17) 

CTON  (operand) 

STOI  (A-17) 

FORCE_BY_MODE  or  LITERAL. 

SUBCODE=6 

I TO I (A-17) 

FORCE_ACCUMULATOR  if  different  type  and  not  literal. 
lADD  (A-18) 

If  operands  are  not  CSE's,  try  folding  constant 
parts.  If  not  completely  successful,  call  EXPRESSION 
for  what  is  left  over. 

ISUB  (A-19) 

See  lADD. 

IIPR  (A-19) 

INTEGER_MULTIPLY  (opcode) 

IIDV  (non-existent) 

Generate  code  for  an  integer  divide  if  one  is  added 
to  the  language. 
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GENERATE 

INEG  (A-20) 

EVALUATE  (opcode) * 

IPEX  (A-19) 

EXPONENTIAL  (opcode) . 

CLASS  7 OPERATIONS 

SUBC0DE=1 

BTRU  (A-45) 

Gs^srate  code  to  transform  bit  string  to  a relation. 

If  string  is  a literal,  ^iust  change  some  pointers.  If 
string  is  in  storage,  attempt  to  use  test  storage  instruc- 
tions. If  all  else  fails,  generate  code  to  load  and 
test . 

BEQU,  BNEQ  (A-45) 

See  subcode  5 . 

SUBC0DE=2 

CEQU,  CNEQ  (A-46) 

CHAR_CALL 

goto  SETAG_CONDITIONAL 

SUBC0DE=3 

MEQU,  MNEQ  (A-47) 


GENERATE 


SUBC0DE=5 

SEQU,  SNEQ,  SGT  (A-41)  ; SNGT,  SM,  SNLT  (A-42) 

Generate  code  to  perform  comparison  with  special 
case  code  for  the  situation  where  one  of  the  operands 
is  literal  0. 


SUBCODE=6 

lEQU,  INEQ,  ^ (A-43)  , INGT,  1^,  INLT  (A-44) 

Attempt  folding  constants  and  then  go  to 
subcode  5 . 


: 1 


SUBCODE=7 

CNOT  (A-40) 

Invert  the  labels  for  the  true  and  false  conditions 
on  the  conditional  operand. 

CAND  (A-39) 

Make  failure  labels  identical.  Make  success  of 
first  test  fall  through  to  second  test. 

COR  (A-40) 

Make  failure  label  of  first  test  fall  through  to  second 
test.  Make  success  labels  identical. 
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GENERATE 


CLASS  8 OPERATIONS 

class  8 is  a loop  which  counts  down 
INITAGAIN  (the  repeat  factor  when  an  OFF  qualifier  appears) 
and  does  not  move  the  HAIMAT.  The  loop  structurJ  il  th^ 
reason,  that  INITLITMOD  and  INITINCR  are  necessary. 

having  a separate  HALMAT  for  every 
rejected  because  it  would  generate 
arbitrarily  large  HALMAT  sequences  for  one  HAL  source 

thereby  violating  the  requirement  of  each  HAL 
statement  being  completely  enclosed  in  one  HALMAT  block. 

SUBCODE=0 

STRI  (A-81) 

Set  up  addressing  information  using  SET  INIT  SYM  Initia  1 -i 
for  pnerating  initialization.  If  item  is  SfRUCTUREV  se^ip 
pointers,  etc.  for  STRUCTURE_WALK , STRUCUTRE_ADVANCE, 

5LRI  (A-82)  “ 

value^liJt^^^^^  repetition  count  and  length  of  initial 

ELRI  (A-82) 

nov  all  repetitions  are  done,  update  counters 
and  reposition  HALMAT  file  at  beginning  of  repeated 
initial  value  list.  ^ 

ETRI  (A-81) 

Glean  up  after  handling  initialization. 

SUBC0DE=1 

BINT  (A-83) 

See  IINT  - subcode  3. 


SUBC0DE=2 


CINT  (A-83) 

variable  is  automatic  set  up  addressing  information 
and  generate  code  to  store  value;  otherwise,  insert  value 
in  proper  place.  vaj.ufcj 
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GENERATE 


SUBC0DE=3  or  4 

VINT,  MINT  (A-83) 


If  variable  is  automatic,  generate  VMCALIi  to  assian 
the  value:  otherwise,  insert  the  value  in  the  entire 
matrix  using  a do  looo. 


SUBC0DE=1  or  5 or  6 

BINT,  SINT,  IINT  (A-83) 
Very  similar  to  CINT. 


SUBC0DE=7 


NINT  (A-92) 


Same  story. 
TINT  (A-83) 


Set  up  addressing  using  STRUCTUREJWALK  (seeSTRI),  check  for 
type  compatibility,  then  simulate  simple  initialization 
by  setting  OPCODE,  SUBCODE,  and  going  to  beginning  of 
initialization  again. 


EINT 


Set  up  address  of  operand  to  be  used  as  external 
entry  point. 


5-217  . . ■ 

intermetrics  incorporated  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661.1840 


II/ 


.1,  ^ 

% 


1 


GENERATE  CONSTANTS 


Procedure 


Purpose ; 
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Function 


GET  ASIZ 


Purpose; 

To  set  up  indirect  stack  for  ASZ  style  HALMAT 
subscript  operand.  This  includes  reading  next  operand 
when  necessary  and  generating  arithmetic  ^ 

load  array  size  into  a register  to  evaluate  subscript 

expression  at  runtime. 

Returns: 


Indirect  stack  pointer. 


Parameters ; 

MARK:  tag  field  of  ASZ  operand. 

Local  variables; 

PTR;  pointer  to  be  returned 

OP:  pointer  to  indirect  stack  entry  for  optional 

expression  operand 
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GET_FUNC_RESULT 

Function 
Purpose ; 

Built  an  indirect  stack  entry  for  a function  result. 
Parameters  Passed; 

OP:  an  indirect  stack  entry  for  the  function. 

Returns ; 

The  stack  entry  built. 

Communicates  via: 

Symbol  table  and  indirect  stack. 

Description : 

Build  a stack  entry  with  the  information  about 
the  function  result  obtained  from  entry  for  function. 

If  necessary,  allocate  a runtime  temporary  for  the 

result.  If  the  function  has  a register,  give  it  to  the 
result. 
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! 


i 

! 


I" 


GET_INTEGER_LITERAL 

Function 


Purpose ; 

To  create  an  Indirect  Stack  entry  for  an  integer 
literal. 

Parameters  Passed; 

VALUE;  The  value  of  the  literal. 

Local  Variables; 

PTR;  Pointer  to  the  Indirect  Stack  entry  for  the 
literal. 

Value  Returned; 

PTR;  Pointer  to  the  Indirect  Stack  entry  for  the 
literal. 

Description; 

The  procedure  calls  GET_STACK_ENTRY  to  get  an  Indirect 
stack  entry  and  then  sets  up  the  relevant  fields  associated  • 
with  the  entry  as  follows; 

FORM;  LIT 

TYPE;  INTEGER  or  DINTEGER 
VAL;  The  value  passed  to  the  procedure 
LOG;  -1  to  show  the  literal  is  not  in  the  Literal 
Table 

It  returns  the  pointer  to  the  entry  it  set  up. 


£ 
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GET  LITERAL 


'^P‘ 


Function 


Purpose ; 

To  locate  the  actual  literal  in  LITERAL  file  (cf. 

3.1.1).  It  returns  the  offset  into  the  LIT  array  of  the 
literal.  Notice  that  this  may  require  reading  in  the 
correct  page  of  the  table. 

Parameters : 

PTR:  absolute  (unpaged)  pointer  into  the  literal 

table 

FLAG:  if  true,  then  when  changing  pages,  write 

out  current  page  and  if  PT,R  points  to  a page 
not  yet  generated,  increment  counter  rather  than 
reading  in  page. 

Comments ; 

Object  generator  routine (s)  call  this  routine  GET_RLD, 
and  re-uses  the  literal  file  for  accumulating  RLD  information. 
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GET  OPERAND 


Function 
Purpose ; 

To  set  up  an  Indirect  Stack  entry  for  a HALMAT  operator 

word. 


Parameters  Passed; 


OP; 

FLAG; 

BY_NAME ; 

N; 


The  operand  word  number.. 

3 for  a SIZE  shaping  function  argument, 

1 for  a variable  that  is  to  be  subscripted. 

The  operand  is  part  of  a NAME  pseudo-function. 

The  entry  in  the  TAG2  and  TAG3  arrays  that  should 
be  used. 


Local  Variables; 

SAVCTR:  A temporary  variable  used  to  save  the  current 

value  of  CTR. 

PTR:  A pointer  to  the  operand's  Indirect  Stack  entry. 


Value  Returned; 

A Pointer  to  the  operand's  Indirect  Stack  entry. 

Description; 

DECODEPIP  is  called  to  decode  the  HALMAT  operand  word. 

An  Indirect  Stack  entry  is  set  up  according  to  the  operand's 

Qualifier;  TAGl. 

1)  Symbol  Table  Variable  (TAG1=1) 

GET  STACK_ENTRY  is  called  to  get  an  Indirect  Stack 
The  entry ' s FORM  is  SYM  to  show  it  is  a Symbol  Table 
entry,  and  LOG  and  LOG 2 point  to  the  Symbol  Table  entry. 
UPDATE_CHECK  is  called  to  update  the  CSECT's  lock  group 
references.  The  stack  entry's  TYPE  is  determined  from 
the  Symbol  Table  entry . SIZEFIX  is  called  to  set  the 
Stack  entry's  size  parameters.  DIMFIX  and  SYT  COPIES 
are  called  to  set  up  arrayness  information.  if  the 
operand  is  not  being  subscripted,  FREE_ARRAYNESS  is 
called  to  set  up  indexing  of  the  variable  if  it  is  an 
unsubscripted  array  reference. 
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GET  OPERAND  (Con't.) 


2)  Virtual  Accumulator  (TAG1=3) 

A virtual  accumulator  is  a pointer  to  the  result  of  a 
previous  HALMAT  instruction.  The  OPR  entry  for  the 
previous  instruction  was  set  to  the  stack  entry  containinq 

The  VAC'S  OPl  field  is  a pointer 
to  the  OPR  entry,  and  OPR (OPl)  is  the  pointer  to  the  stack 
entry.  VAC  COPIES  is  called  to  set  up  arrayness  informa- 
tion about  the  VAC  in  the  SUBLIMIT  stack.  VAC  COPIES 
calls  FREE_ARRAYNESS  to  set  up  indexing  for  the  VAC  if  it 
IS  an  unsubscripted  array  reference.  VAC  COPIES  parallels 
the  function  of  SYT_COPIES.  “ 

3)  Pointer  (TAG1=4) 


The  EXTN  opcode  and  subsequent  operands  are  traversed  to 
establish  an  indirect  stack  entry  describing  a reference 
to  a structure  node  or  structure  terminal.  STRUCTFIX  is 
called  to  set  up  the  major  structure,  and  STRUCTURE_DECODE 
is  called  for  each  EXTN  node  to  establish  addressing  and 
perform  any  implicit  NAME  de-ref erencing.  Then  control  is 
passed  to  the  symbol  table  variable  process  to  complete 
the  task. 

4)  Literal  (TAG1=5) 

For  a literal,  an  Indirect  Stack  entry  of  the  form  LITERAL 
is  set  up  whose  LOC  field  points  to  the  literal's  Literal 
Table  entry.  The  procedure  LITERAL  is  called  to  put 
information  about  the  literal  in  the  appropriate  fields 
of  the  Indirect  Stack  entry. 

5)  Immediate  (TAG1=6) 

For  an  immediate  value,  the  OPl  field  of  the  operand  word 
IS  the  value.  GET_INTEGER_LITERAL  is  called  to  set  up  a 
stack  entry  for  it. 

6)  Offset  (TAG1=10) 

A stack  entry  with  FORM  of  OFFSET  and  whose  VAL  field  is 
the  offset  is  set  up. 

GET_OPERAND  does  not  set  up  stack  entries  for  other 
qualifier  values. 
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s 

GET 

Function 
Purpose ; 

To  get  an  addressing  register. 

Parameters  Passed; 

None . 

Local  Variables ; 

R;  The  register  chosen. 

TR:  Never  references. 

Value  Returned; 

R;  The  chosen  register. 

Description; 

If  TARGET_R  is  greater  than  or  equal  to  zero,  then 
it  is  the  register  chosen.  Otherwise,  register  2 is  chosen. 
The  register  that  has  been  chosen  is  checkpointed  by 
calling  CHECKPOINT_REG.  Then  the  appropriate  Register 
Table  fields  are  assigned. 
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GET  STACK  ENTRY 


Function 


Errors  Detected; 

Indirect  Stack  Overflow. 


Purpose ; 

Gets  a free  Indirect  Stack  Entry. 
Parameters  Passed; 

None . 

Value  Returned; 

Pointer  to  the  Indirect  Stack  Frame. 


Local  Variables : 


entry, 


PTR; 


A pointer  to  the  first  free  Indirect  Stack 


Description ; 

PTR  takes  on  the  value  of  STACK  PTR,  the  pointer  to  the 
first  free  stack  entry.  STACK  PTR  takes  on  the  value 
of  STACK_PTR (PTR) . The  stack  Ts  checked  for  overflow; 
STACK_PTR (PTR) =0.  If  there  is  none,  STACK  PTR (PTR)  is 
set  to  -1  to  show  the  entry  has  been  allocated.  All 
the  fields  associated  with  the  stack  entry  are  initialized: 

REG,  BACKUP_REG,  STACK_PTR  = -1. 

INX_MUL  = 1 

INX,  BASE,  INX_SHIFT,  COLUMN,  DEL,  CONST,  INX  CON, 

STRUCT_CON,  COPY,  STRUCT,  STRUCT  INX  = 0 . 
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GET  STACK  ENTRY  (Con't.) 


Indirect  Stack  before  a call  to 


GET  STACK  ENTRY  After 


If  compiler  diagnostics  have  been  requested,  then 
a message  is  pointed  naming  the  allocated  stack  entry . 


References : 

SETUP  STACK,  RETURN_STACK_ENTRY  together  with  GET  STACK 
ENTRY  provTde  a complete  picture  of  allocation  and  deaTloCa- 
tion  of  Indirect  Stack  Frames. 
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GET  VAC 


Function 


Purpose ; 

To  set  up  an  Indirect  Stack  entry  for  a register 
temporary. 

Parameters  Passed: 


R:  The  register  number,  or  a negative  value  if  no 

particular  register  specified. 

TYP:  The  type  of  the  register  contents.  The  default 

of  0 is  taken  to  indicate  type  INTEGER. 

Local  Variables  t 

PTR:  A pointer  to  an  Indirect  Stack  entry. 

Value  Returned: 

PTR:  A pointer  to  an  Indirect  Stack  entry. 

Description; 

If  R is  negative,  FINDAC  is  called  to  find  an  index 
register  to  use  as  a temporary.  GET_STACK_ENTRY  is 
called  to  get  a new  Indirect ' Stack  Entry  to  represent 
the  temporary.  PTR  points  to  it.  The  relevant  fields 
are  set:  FORM  to  VAC,  REG  to  R,  and  TYPE  to  TYP.  The 

Register  Table  field  R_TYPE  for  R is  set  to  TYP.  The 
pointer  to  the  entry  is  returned. 


j 

[■■■ 

I 

i 
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GETARRAYDIM 


Function 
Purpose ; 

To  pick  up  an  array  dimension  from  the  Symbol  Table. 
Parameters  Passed: 

IX:  The  array  dimension. 

OPl:  Pointer  to  the  array's  Symbol  Table  entry. 

Local  Variables: 

None . 

Value  Returned: 

Vi 

The  IX  array  dimension  of  OPl. 

References : 

See  SYT_ARRAY  field  of  the  Symbol  Table. 

Description: 

This  function  returns  the  number  of  copies  of  a 
structure  determined  by  SYT_ARRAY  (OPl)  or  the  IX'^^ 
dimension  of  an  array  determined  by  EXT_ARRAY (SYT_ARRAY (OP) +1X) . 
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GETARRAY# 


Function 


Purpose ; 

To  determine  the  number  of  array  dimensions  of  a 
Symbol  Table  entry. 

Parameters  Passed; 

OP:  Pointer  to  a Symbol  Table  entry. 

Local  Variables: 


None. 

Value  Returned: 

Arrayness  information. 


References : 

The  SYT_ARRAY  field  of  a Symbol  Table  Entry. 

Description: 

GETARRAY#  returns  0 if  the  Symbol  Table  entry  is 
unarrayed,  or  if  it  has  * size  arrayness  indicated  by 
SYT  ARRAY (OP)  < 0.  Otherwise,  it  returns  the  number  of 
array  dimensions.  This  information  is  found  in  EXT_ARRAY (SYT 
ARRAY (OP)). 


5“23t) 

INTFRMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • <617)  661-184 


^ " 


GETFREESPACE 


Function 


Errors  Detected; 

BS112:  Storage  Descriptor  Stack  overflow. 

BS113:  Exceeded  temporary  storage. 

Purpose ; 

To  find  temporary  storage  in  the  runtime  stack 
frame  of  the  block  for  which  code  generation  is  occuring, 
and  to  set  up  the  Storage  Descriptor  and  Indirect  Stack 
entries  to  represent  it. 

Parameters  Passed; 

OPTYPE;  The  operand  type  to  be  stored. 

TEMPSPACE:  The  amount  of  temporary  storage  needed  in  terms 

of  the  product  of  any  dimensions  of  arrayness 
and  the  halfwords  occupied  by  a structure,  the 
length  of  a character  string,  or  the  number  of 
data  items  in  the  other  data  types. 

Local  Variables; 

TYPESIZE:  The  number  of  halfwords  occupied  by  one  data 

item. 

SIZE;  The  number  of  halfwords  of  storage  necessary. 

TEMP:  A temporary  value  used  while  searching  for 

sufficient  storage. 

Value  Returned: 

A pointer  to  the  Indirect  Stack  entry  representing 
the  storage. 
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GETFREESPACE  (Con ' t . ) 


Coimnunicates  via; 

creates  a new  Storage  Descriptor  Stack  and  a new 
Indirect  Stack  entry. 


STORAGE  descriptor 
STACK 


some  time  during  code  relating  to  storage 

of  the  Storage  Descripto  aoraypOINT  WORK  OR,  WORK  USAGE 
allocation  have  been  shown;  ARRAYPOINT,  wuk  _ , _ 

have  been  omitted.  . 
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GETFREESPACE  (Con't.) 

GETFREESPACE  searches  the  Storage  Descriptor  Stack 
for  the  first  entry  whose  UPPER  field  is  not  greater  than 
f.ppp  this  indicates  the  entry  is  not  being  used.  If 

UPPER  IS  zero,  then  the  entry  has  never  been  allocated 
previously,  and  FULLTEMP,  the  maximum  Storage  Descriptor 
Stack  size,  is  incremented.  An  UPPER  of  -1  indicates 
that  the  entry  was  previously  allocated  but  is  no  longer 
needed. 

The  procedure  computes  SIZE,  the  number  of  halfwords 
of  storage  necessary.  The  allocated  temporary  storage 

there  is  room  for  the  new  entry  between 
two  existing  entries.  The  space  between  entries  is  due  to 
alignment  requirements  and  storage  entries  that  have  been 
released.  Searching  for  space  involves  using  the  linked 
list  formed  by  the  POINT  fields  of  the  entries.  POINT (0) 
points  to  the  first  allocated  storage  in  the  work  area  of 
the  runtime  stack  frame.  POINT  of  each  subsequent  Storage 
Descriptor  Stack  entry  points  to  the  entry  occupying  the 
next  allocated  storage.  The  last  member  of  the  list  points 
to  0 . LOWER  of  each  entry  points  to  the  beginning  of  the 
area  in  Temporary  Storage  occupied  by  the  entry,  UPPER 
points  to  the  end.  j 

To  begin  the  search,  TEMP,  a temporary  variable,  is 
set  to  WORKSEG(INDEXNEST)  and  then  normalised  to  meet  align- 

• .^^2  is  used  for  chaining  through  the 
linked  list  and  is  initially  0.  IXl  is  the  entry  in  the 
Storage  Descriptor  Stack  to  be  allocated.  Now  a loop 
begins  to  see  if  TEMP  + SIZE < LOWER (POINT (1X2) ) . If 
it  is  the  loop  is  exited.  Otherwise,  1X2  is  set  to 
POINT (1X2),  and  TEMP  is  set  to  a normalized  version  of 
UPPER (1X2)  and  the  loop  is  repeated. 

When  space  has  been  found,  the  new  Storage  Descriptor 
Stack  entry  is  allocated,  and  the  POINT  fields  are  changed 
to  insert  the  new  entry  at  the  appropriate  point  in  the 
linked  list.  If  UPPER (1X1)  is  greater  than  MAXTEMP (INDEXNEST) , 
the  maximum  storage  needed  by  the  Runtime  Stack  Frame,  this 
Changed.  W0RK_GTR (1X1)  is  set  to  the  current 
HALMAT  line  and  WORK_USAGE (1X1)  is  set  to  1 to  indicate 
one  user  of  the  Storage  Descriptor  Stack  entry. 

A new  Indirect  Stack  entry  is  set  up  to  represent 
the  Storage  Descriptor  Stack  entry.  Its  form  is  WORK  to 
indicate  this.  The  LOG  field  is  set  to  the  Storage 
Descriptor  Stack  entry.  The  BASE  of  the  entry  is  TEMPBASE 
since  anything  in  the  Runtime  Stack  is  addressed  from  this 
register.  The  DISP  field  is  LOWER(IXI)  except  for  vectors 
and  matrices.  For  them,  DISP  is  LOWER (1X1)  - TYPESIZE 
because  of  the  addressing  conventions  used. 
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GETPREESPACE  (Con't.) 

i 


GETPREESPACE  returns  a pointer  to  the  Indirect  Stack 
entry  as  set  up. 

Poss4ble  configuration  of  Storage  Descriptor  Stack 
and  Temporary  Storage  as  shown  in  the  previous  diagram 
after  a call  to  GETPREESPACE: 


STACK 


Entry  2 was  the  first  entry  with  UPPER  ~,>  0,  so  it  was 
allocated. 
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GETINTLBL 


Function 


Purpose; 

Create  stack  entry  and  statement  number  for  flow 
number. 

Parameters  Passed; 

LABEL#;  a flow  number. 

Communicates  via; 

LABEL_ARRAY  and  indirect  stack. 

Returns ; 

Pointer  to  generated  stack  entry. 


kjk- 
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GETSTATNO 


Function 


Errors  Detected; 

BS  114:  Statement  labels  all  in  use. 

Purpose ; 

TO  get  a free  statement  number  to  use  as  a label. 

Parameters  Passed: 

None. 

Tonal  variable^; 

None . 

TTalne  Returned: 

A statement  number. 

Description: 

STATNO,  the  number  of  statement^n»^^ 

if  rerrel^^Otber^^Ie!  ~ is  callea. 
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GETSTMTLBL 


S 

Function 


Purpose ; 

To  set  up  an  Indirect  Stack  entry  for  a generated 
statement  label. 

Parameters  Passed; 

STATNO:  A Statement  number-label. 

Local  Variables; 

PTR;  A pointer  to  an  Indirect  Stack  entry  for  the 
Statement  label. 

Value  Returned; 

PTR:  A pointer  to  an  Indirect  Stack  entry  for  the 

statement  label. 

Description; 

PTR  is  set  to  the  result  of  calling  GET_STACK_ENTRY . 
The  form  of  the  entry  is  set  to  STATNO,  to  show  the  entry 
represents  a statement  number.  LOG  and  VAL  of  the  entry 
are  set  to  STATNO.  PTR  is  returned. 


'-"1^ 
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GUARANTEE  ADDRESSABLE 


Procedure 


•ilt 


Purpose ; 

To  set  up  addressing  for  a symbolic  variable. 
This  includes  stack  walks,  dereferencing,  external 
referencing,  base  register  loads,  etc. 

Parameters ; 

OP:  indirect  stack  entry  for  variable  to 

be  referenced. 

INST:  instruction  to  do  the  referencing 

BY_NAME:  if  false,  dereference  pointer  variable 
NEED_SRS: 


Local  variables: 

R:  register  to  use 

PLOC:  symbol  table  pointer  for  item  to  be  addressed 
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HEX 

Function 
Purpose ; 

To  convert  an  integer  to  external  HEX  notation. 
Parameters  Passed: 

HVAL:  The  value  to  be  converted. 

N:  The  length  of  the  hex  string  to  be  returned. 

Local  Variables ; 

K:.  Temporary  variables. 

B : Temporary  variables . 

Value  Returned; 

The  external  Hex  representation  of  the  number. 


I 
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HEX  LOCCTR 


Function 
Purpose ; 

To  generate  a readable  current  location  counter. 
Parameters  Passed; 

None. 

Local  Variables; 

None. 

Value  Returned; 

A formatted  external  hex  representation  of 
LOCCTR ( INDEXNEST ) . 
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INCORPORATE 


Procedure 


Purpose : 


To  incorporate  integer  constants  associated  with  an 
Indirect  Stack  entry  into  the  register  containing  the  entry. 

Parameters  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 

Local  Variables: 

LITOP;  A pointer  to  an  Indirect  Stack  entry  for 
the  constants. 

OPER:  An  opcode  used  for  incorporating  the  constants 

into  the  term. 

Communicates  via; 

The  Indirect  Stack  and  the  Register  Table. 

Description ; 

If  COLUMN (OP) >0 , then  OP  is  an  Indirect  Stack  entry 
for  a bit  string  that  starts  at  the  bit  position  indicated 
by  the  stack  entry  represented  by  COLUMN (OP).  BIT_SHIFT 
is  called  to  shift  the  operand  contained  in  REG (OP)  left  by 
the  amount  represented  by  COLUMN (OP).  Then  the  register 
contents  are  masked  according  to  the  length  of  the  bit 
string ^ SIZE (OP),  by  calling  BIT_MASK.  RETURN_STACK_ENTRY 
is  called  to  return  the  entry  pointed  to  by  COLUMN (OP) . 
COLUMN (OP)  is  set  to  0 to  show  that  the  shift  has  been 
incorporated. 
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INCORPORATE  (Con ' t . ) 


If  CONST (OP)n=0 , there  is  a constant  term  that  should 
be  incorporated  into  the  register  that  will  contain  OP. 
GET_INTEGER_LITERAL  is  called  to  get  an  Indirect  Stack  entry 
for  the  constant,  and  a pointer  to  it,  LITOP.  If  REG (OP) 
is  negative,  then  the  entry  is  not  contained  in  a register. 
FINDAC  is  called  to  find  a register  for  OP,  and  OPER  is  set 
to  LOAD  since  the  register  will  be  loaded  with  the  term.  If 
OP  has  a register,  OPER  will  be  SUM  since  the  constant  will 
have  to  be  added  to  the  register  contents. 

ARITH_BY_MODE  is  called  to  add  or  load  the  constant 
into  the  register.  R_CON (REG (OP) ) , the  total  of  all 
constant  terms  in  the  register,  is  incremented  by  CONST (OP). 
CONST (OP)  is  set  to  zero  since  it  is  incorporated  into  the 
register.  ’ The  Indirect  Stack  entry  for  the  constant  is 
returned  since  it  is  no  longer  needed. 
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INITIALISE 


Procedure 


Purpose ; 

Initialize  phase  2 of  compiler,  allocate  compile  time 
storage,  reorganize  selected  parts  of  the  symbol  table, 
allocate  storage  for  all  declared  variables. 

A collection  of  flags  are  set  up  based  on  the  contents 
of  TOGGLE,  PARM_PIELD  and  OPTION_BITS . 

Compile  time, storage  has  already  been  allocated  for 
the  tables  inherited  from  phase  1.  Storage  is  now  allocated 
for  the' EXTENT  array  which  will  be  passed  to  phase  3.  After 
that,  storage  is  allocated  for  the  other  six  columns  of  the 
symbol  table  which  are  local  to  phase  2 , for  the  LABEL_ARRAY , 
for  the  LOCATION  array,  and  for  the  LOCATION_LINK  array.  This 
storage  will  be  returned  at  the  end  of  phase  2.  For  each 
non-IGNOREable  name  in  the  symbol  table  perform  appropriate 
initialization  actions. 


SYT_CLASS=0 

This  is  an  impossible  value  and  consequently  indicates 
that  all  the  entries  have  been  processed. 

First,  ESDs  are  defined  using  the  appropriate  setup 
routines  depending  on  the  type  of  the  program  unit.  Then 
the  locations  (in  the  stack  frame)  for  the  error  vector, 
temporaries,  and  v;ork  areas  are  laid  out  for  each  procedure 
in  the  compilation  unit. 
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INITIALISE 


STORAGE_ASSIGN.MENT  assigns  a location  to  every  variable. 

The  REGISTERS  array  is  set  up  to  indicate  the  possible 
uses  of  each  register;  the  NOT_MODIFIER,  PACKFORM,  and^ 
SYMFORM  arrays  are  initialized  here  rather  than  at  their 
declarations  for  convenience;  the  indirect  stack  is  built 
and  finally  the  procedure  returns. 

SYT_CLASS=1 

The  unusual  placement  of  the  declaration  of  procedure 
VARIABLES  here  is  for  historical  reasons: 

For  non-parameters,  simple  process  using  VARIABLES. 

For  parameters,  determine  type  of  parameter  passed  (nb. 
for  arrays,  ...  parameter  is  pointer)  and  size  and  addressing 
information  on  actual  parameter. 


SYT  CLASS=2  labels 


If  not  NAME  or  EXTERNAL 


statement  label  — assign  it  a statement  number 

procedure  --  PROCENTRY,  CHECK_COMPILABLE 

task  — PROCENTRY,  assign  unique  task  number, 
ENTER_ESD,  link  into  list  of  tasks 

program  --  PROCENTRY,  CHECK_COMPILABLE 

compool  --  similar  to  program 

external  label  — link  into  list  of  external  labels 
if  parameter 

count  argument,  PARAMETER_ALLOCATE , SET_PROCESS_SIZE 


if  EXTERNAL 

ENTER,  SET_NEST_AND_LOCKS , SET_PROCESS_SIZE 
if  non-HAL 

link  into  list  of  non-HALs 
otherwise, 

PROCENTRY,  ENTER_ESD . 
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INITIALISE 


SYT  CLASS=3  functions 


For  regular  HAL  functions,  fill  in  information  about 
the  type  of  the  function  in  a format  similar  to  a variable 
of  that  type  after  first  doing  a PROCENTRY  and  a CHECK_ 
COMPILABLE . 

If  NAME  FLAG  is  on,  this  is.  a NAME  variable  which  can 
point  to  a function  (currently  illegal) . 

For  non-HALs,  link  into  list  of  non-HALs  and  then 
process  like  a variable. 


‘I 

% 

) 

Vt 


SYT_CLASS=7  templates 

Guarantee  that  only  the  full  template  is  processed 
by  checking  for  SYT_TYPE=TEMPL_NAME . Perform  a complete 
template  walk.  For  each  node  or  leaf 

node  — ENTER,  set  type  to  STRUCTURE,  remember  location 
in  SYT_SORT  for  ALLOCATE_TEMPLATE 

leaf  is  a structure  — ENTER,  set  type  to  STRUCTURE,  copy 
information  from  template  of  the  leaf. 

leaf  is  name  of  program  or  task  — ENTER,  SET_PROCESS_SIZE 

leaf  has  a simple  type  — VARIABLE,  if  NAME  handle  as  function^; ; 

When  finished  with  a minor  node,  ALLOCATE_TEMPLATE . 

When  finished  with  whole  template,  remove  it  from  SYT_SORT, 
then  traverse  entire  template,  relocating  sub— trees  so  that 
SYT  ADDR  of  each  node  becomes  the  total  offset  from  the  beginning 
of  the  template.  Link  template  into  list  of  templates. 
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INTEGER  MULTIPLY 


Procedure 


Purpose ; 

To  generate  code  to  perform  integer  multiply.  If 
both  operands  are  in  registers , an  attempt  is  made  to  perform 
the  multiply  without  making  a copy  but  this  may  be  impossible 
if  the  register  pairs  are  not  available.  If  one  operand  is 
a power  of  two,  the  multiply  is  done,  by  shifting.  In  all  other 
cases,  EXPRESSION  is  called  to  generate  general  purpose  code. 
Notice  that  if  EXPRESSION  gets  an  XEXP  opcode  it  performs  a 
non-commutative  multiply. 

Parameters ; 

OPCODE;  the  opcode  part  of  a HALMAT  instruction. 
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INTEGER_VALUE 

Function  Fixed 
Arguments  Passed; 

PTR,  a pointer  to  an  indirect  stack  entry. 
Returns ; 

A fixed  point  value  or  NEGMAX. 


Procedures  Called: 


INTEGERI ZABLE , INTEGER_VALUED 


if  routine  analyzes  an  indirect  stack  to  determine 

^ ^ numeric  literal,  if  so,  it  checks  for  INTEGER 

data  type,  and  returns  the  corresponding  VAL  if  true.  Other- 
wise.  It  checks  if  the  SCALAR  number  is  both  representable 

^ whole  number  (no  fractional  digits)  . 

returned.  A return  of  NEGMAX 

nSmeririiS^al!  an  integer  valued 
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IT 


LITERAL 


Procedure 


Purpose : 


;?nv  Stack  entry  for  a literal.  This  includes 

any  necessary  type  conversions. 


Parameters ; 
PTR: 


literal  table  pointer 


'LTYPE:  type  of  desired  literal 


STACK; 


an  indirect  stack  entry  to  be  filled  in. 


:i! 


5-2  49 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  ^ CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


MlWaiiMpMP 
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LOAD  NUM 


Procedure 


Purpose ; 

To  force  a number  into  a specified  register. 
Parameters  Passed: 


R:  The  register  to  be  loaded. 

NUM:  The  number  to  be  loaded. 


FLAG:  If  bit  1 is  non-zero,  then  R's  Register  Table 

entries  are  unchanged;  if  bit  3 is  one,  then 
the  double  precision  is  used;  if  zero,  then 
single  precision. 


Local  Variables: 


LITOP:  Pointer  to  an  Indirect  Stack  entry  for  NUM. 


RT:  If  the  number  is  in  a register,  this  is  the 

register  it  is  in. 


c: 


Communicates  via: 


Register  Table. 


Description: 


GET_INTEGER_LITERAL  is  called  to  get  an  Indirect  Stack 
entry  for  the  number,  and  a pointer  to  it,  LITOP.  The 
TYPE  (LITOP)  is  modified  to  indicate  the  precision  specified  by  FLAG; 
bit  3 of  the  type  specifies  precision  (double  precision  if  one; 
single  precision  if  zero),  SEARCH_REGS  is  called  to  search 
the  registers  for  the  number.  If  it  is  in  a register 
already,  it  can  be  loaded  into  R using  an  RR  instruction. 

Otherwise,  various  tests  are  carried  out  to  determine  how 
to  load  the  number  into  the  register,  and  the  proper  code 
emitting  routine  is  called. 
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-'i 


LOAD  NUM  (Con't.) 


for 


If  bit  1 of  FLAG  is  ZERO,  the  Register  Table  entry 
R is  changed  as  follows: 


USAGE (R)  =USAGE(R)|1; 
R_CONTENTS (R)  = LIT : 
R_CON(R)  = NUM 
R XCON(R)  = 0 


the  usage  is  known. 

the  contents  are  a literal. 

The  register  contents. 

The  register  contents . 


The  stack  entry  for  the  number  is  returned  once  it  is  no 
longer  necessary. 
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MAJOR  STRUCTURE 


Function 
Purpose ; 

To  determine  if  a STRUCTURE  Indirect  Stack  entry 
xs  a major  structure.  entry 

Parameters  Passed; 

OP;  A pointer  to  an  Indirect  Stack  entry. 

Local  Variables; 

None . 

Value  Returned; 

TRUE  if  OP  is  a major  structure,  FALSE  otherwise. 

References ; 

The  procedures  STRUCTFIX  and  STRUCTURE_DECODE . 

Description; 

operand  type  is  STRUCTURE  and  L0C2(0P)=SYT  DIMS  (LOC  (OP)  ) 
the  struture  is  a major  structure.  This  is  because  of-th^wav 

?™UCTURE_DEC0DE  set  up  the  Indirect  Stack  entry 
LOC  (OP)  will  always  point  to  the  Symbol  Table  entry  for  the 

structure.  L0C2(0P)  points  to 

the  Sy^ol  Table  entry  for  a structure  node,  and  the  structure 
template  s Symbol  Table  entry  for  a major  structure. 
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Mi^*X 


Function 

Purpose; 

To  find  the  maximum  of  two  values. 
Parameters  Passed; 

VALl,  VAL2;  Two  values. 

Local  Variables; 

None . 

Value  Returned; 

The  maximum  of  VALl  and  VAL2 . 
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Purpose : 

To  find  the  minimum  of  two  values 
Parameters  Passed; 

VALl,  VAL2;  Two  values. 

Local  Variables ; 

None . 

Value  Returned; 

The  minimum  of  VALl,  VAL2 . 
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MOVEREG 


Procedure 


Purpose ; 

To  move  register  attributes  from  one  register  to 
another . 


Parameters  Passed; 

RF:  The  register  the  attributes'  are  being  moved  from. 

RT;  The  register  the  attributes  are  being  moved  to. 

RTYPE:  . Tye  operand  type  of  the  register  contents. 

USED:  A flag  indicating  whether  the  USAGE  of  RF 

should  be  decremented. 

Local  Variables: 

None . 

] Communicates  via: 

The  Register  Table. 

Description : 

If  RTYPE  is  DSCALAR,  RT+1  is  loaded  with  RF+1,  and 
RTYPE  is  changed  to  SCALAR.  EMITRR  is  called  to  load  RT  from 
RF.  If  the  contents  of  RF  are  known,  (its  USAGE  is  odd), 
the  fields  in  the  register  table  for  RT  are  equated  to  the 
corresponding  fields  of  RF.  The  USAGE  of  RT  is  set  to  3 to 
indicate  it  has  one  known  use.  If  the  contents  of  RF 
are  unknown,  the  USAGE  of  RT  is  set  to  2 to  indicate  one 
unknown  use.  If  the  USED  flag  is  one,  the  USAGE  of  RF  is 
decremented  by  2 . 

Reference: 

Opcode  construction. 
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Procedure 


NEW  HALMAT  BLOCK 


Purpose; 

To  get  a new  block  of  HALMAT. 
Parameters  Passed; 

None . 

Local  Variables; 

None . 


Communicates  via; 

The  global  variables,  OPR,  CTR,  CURCBLK. 
Description; 


ana  sSLrS  thrSpf  arraf  cSpnff 

block,  la 

in  t^e  Srff  InstrLtLn!^ 


INTORMETRICS  INCORPORATED 
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NEW  REG 


Procedure 


Purpose : 


To  move  VAC  to  a new  register. 

Parameters  Passed; 

PTR:  A pointer  to  an  Indirect  Stack  entry. 

USED:  A flag  indicating  whether  the  usage  of  OP's 

current  register  should  be  decremented. 

Local  Variables: 

RTEMP:  The  new  register. 

Communicates  via: 

Indirect  Stack. 


Description: 

FINDAC  is  called  to  find  a new  index  register,  RTEMP, 
for  the  Indirect  Stack  entry  to  use.  MOVEREG  is  called 
to  move  the  attributes  and  contents  from  the  stack  entry's 
old  register  to  the  new  one.  The  entry's  REG  field  is 
changed  to  RTEMP. 
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NEW  USAGE 


Procedure 
Purpose ! 

To  clear  ou'tda'ted  variable  usages  from  the  registeir 


Parameters  Passed: 


OP: 

A pointer  to  the  Indirect  Stack  entry  for  the 
outdated  variable. 

FLAG: 

A flag  indicating  that  UNRECOGNIZABLE  should 
be  called  in  spite  of  differences  between  the 
register  and  stack  entry's  indexing  constants 

BY_NAME : 

Variable  has  NAME  attribute. 

Local  Variables : 

I: 

A do  loop  temporary. 

Communicates  via: 

Calling  UNRECOGNIZABLE. 


Description: 

The  procedure  checks  each  register  whose  usage  is 
known  to  see  if  the  register's  properties  and  the  stack 
entry  s properties  match  within  a certain  tolerance.  If 
they  do,  UNRECOGNIZABLE  is  called  to  indicate  that  the 
register ' s contents  are  no  longer  known . The  BY  NAME 
flag  is  used  to  help  determine  which  properties  to  match. 
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NEXTCODE 


Procedure 


Purpose ; 

To  position  to  the  next  HALMAT  operator  and  decode 

Parameters  Passed; 

None . 

Local  Variables; 

None . 

Communicates  via; 

The  global  variables,  CTR,  pp. 

Description; 


number  of  HALMAT  operators  decoded  is  incremented 

poiAt“:  SSrSoUtfS!  operator  pointer,  ia  Incilmen^ed  tS  ’ 
Should  be  the  next  HALMAT  operator.  The  last 
bitof  this  word  is  tested:  a value  of  1 indicates  that 

the'^tes?,  ?nlicS?erSe  wo^d  Is  f • 

When  the  next  operator  is  found,  DECODEPOP  is  called^to^'decode 


REPRODUCBILITY  OF^HK 

original  page  Io  poor 
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OBJECT  CONDENSER 


Procedure 


Purpose; 

To  condense  the  intermediate  code.  The  entire  intermediate 
code  file  is  read.  All  labels  are  checked  for  consistency 
(this  is  a check  on  compiler  consistency,  not  source  program 
consistency) . 

In  the  FC  compiler,  an  attempt  is  made  to  use  short 
form  addressing  in  SRS  instructions. 
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OBJECT  GENERATOR 


References ; 

The  intermediate  code  is  described  in  the  360  Compiler 
Spec,  Appendix  C. 

Purpose ; 

To  translate  the  intermediate  code  file  to  an  object 
module  acceptable  to  the  FC  or  360  linkage  editor  respectively. 

OBJECT_GENERATOR  must  output  cardimages  containing 
alphabetic  and  uon-alphabetic  data.  Since  XPL  I/O  is  all 
alphabetic  some  magic  must  be  performed.  Specifically,  the 
cardimage  is  built  in  an  array  (not  a character  string)  and 
a character  string  descriptor  DUMMYjCHAR  is  built  to  allow 
this  cardimage  to  impersonate  a character  string.  Since  it 
is  sometimes  convenient  to  move  words  and  other  times  conven- 
ient to  move  bytes,  the 

DECLARE  CARDIMAGE  FIXED,  COLUMN (79)  BIT(8); 
equates  CARDIMAGE(i)  with  COLUMNS  (4i-4,  4i-3,  4i-2,  4i-l) . 

NEXT_^REC  reads  the  next  intermediate  language  instruction 
and  breaks  it  down  into: 


TEMP  = 


GET_INST_R_X  breaks  down  RHS  and  returns  a properly 
shifted  instruction  code: 


INST 


R ilA  IX 


Notice  that  the  INST  (in  both  compilers)  is  usually  a 
360  opcode  and  consequently  must  be  translated  by  AP-IOIINST 
for  the  FC  compiler. 

After  emitting  the  SYM  and  ESD  cards,  the  routine  reads 
the  entire  intermediate  code  file. 
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OB JECT_GENERATOR  ( Con ' t . ) 


RR  Type; 

inn„edJft™"''oR  togathef  Sf 

registers  and  instruction  code  and  two 


— RS  / RI  y SS  Types  ; 


and  Put  it  all  together 

DELTA ; 

Add  it  into  ADDRESS_MOD. 

Labels  & Statement  Numbers; 

Print  the  right  name. 

CSECT; 

If  this  is  a different  ESD,  print  it. 

RLDs  ; 

be  issued  latir^  by^  EtOT^RLD^  actual  RLD  cards  will 

SRS  Instructions; 

Form  base  displacement  with  FORM  Bn  r>ii+-  n+.  it  j. 
and  emxt  it.  ukjvi_bd,  put  it  all  together 

16  = Address  Check; 

EM1T_ADDRS.  ^Speoifioallv^*tha*BAT in*ormatlon  via 

ntl4ement®ERLlGWuST"ESS?f  ‘""d' ' 

outpu^f^lR^Ef  a^d%?l?KlS  irfSff  T" JsW  rfre 

file,  RLD  oards^are  issued^'^and'^an"pNn"  *^*"3  i"l®i"'S'3iate  code 
is  the  main  program,  a oompilatiS3  of  issued.  If  this 

IS  simulated.  START  simply  calls  thi  Lir|"gram“®'^ 
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Procedure 


Purpose ; 

To  decrement  the  usage  of  an  index  register. 


Parameters  Passed; 

R;  The  register  or  a negative  pointer  to  an  Indirect 
Stack  entry  for  the  register  if  it  has  been 
checkpointed. 

Local  Variables; 

None . 

Communicates  via; 

The  Indirect  Stack  and  the  Register  Table. 


Description;  _ 

If  R is  positive,  it  is  the  actual  register  number. 
The  only  thing  that  needs  to  be  done  is  to  decrement 
USAGE (R)  by  2 to  show  there  is  one  less  claim  on  the 
register . 


If  R is  negative,  then  R = -R  to  get  a pointer  to  the 
Indirect  Stack  entry  for  a checkpointed  register.  DEM  ) , 
which  corresponds  to  USAGE  of  a register,  is  decremented  by 
2 If  DEL(R)  is  zero,  the  value  of  the  checkpointed  _ 
register  is  no  longer  needed.  DROPSAVE  is  called  to  add 
the  Storage  Descriptor  Stack  entry  for  the  register  to 
the  list  of  no  longer  needed  entries.  RETURN_STACK_ENTRY 
is  called  to  return  the  stack  entry. 
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OPTIMISE 


Procedure 


Purpose ; 

This:  routine  originally  did  some  machine  independent 
optimization  on  the  HALMAT  before  code  generation,  hence 
its  name.  The  optimization  function  is  now  performed  in 
phase  1.5.  Currently,  the  routine  scans  the  HALMAT 
for  one  source  statement  doing  some  bookkeeping. 

Parameters  Passed; 

FLAG*  { ^ start  scan  at  next  HALMAT  xnstructron 


1 - start  scan  at  current  HALMAT  instructior 


Communicates  via; 


Code  emission  and  assorted  global  variables. 
Description; 

Find  SMRK  and  emit  intermediate  code  for  it;  update 
first  and  last  statement  numbers;  if  any  errors  from  phase  1, 
call  ERRORS;  set  flags  for  I/O  statement  or  in-line  function 
definition.  Check  for  DEBUG  directive  and  take  appropriate 
action. 
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Procedure 


PARAMETER  ALLOCATE 


Purpose ; 

Determine  storage  locations  for  formal  parameters. 
Parameters  passed; 

OP:  symbol  table  pointer  of  formal  parameter 

PTYPE:  type  of  parameter  passed 
LEN:  number  of  items  passed 

Communicates  via : 

symbol  table,  FIXARG,  PTRARG. 

Description : 

If  the  parameter  can  be  passed  by  register  it  is 
set  up  for  that;  otherwise,  it  is  passed  in  the  area  after 
the  REGISTER_SAVE_AREA.  FIXARG  or  PTRARG  is  updated 
appropriately. 
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POSITION  HALMAT 


Procedure 
Purpose ; 

To  position  a HALMAT  block  if  necessary. 
Parameters  Passed; 

BLK:  The  HALMAT  block  to  be  positioned. 

Local  Variables: 

None . 

Communicates  via; 

Calling  NEW_HALMAT_BLOCK  if  necessary. 

Description ; 

If  BLK  is  not  CURCBLK,  CURCBLK  is  set  to  BLK-1. 
Then,  NEW_HALMAT_BLOCK  is  called  to  position  the  block. 
CURCBLK  is  always  one  greater  than  the  block  in  OPR. 
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POWER  OF  TWO 


Function 


Purpose ; 


To  determine  if  an  Indirect  Stack  entry 
constant  integer  power  of  two. 


is  a 


Parameters  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 


Local  Variables: 

TEST:  A temporary  variable. 

Value  Returned: 

TRUE  if  entry  is  a power  of  two,  FALSE  otherwise. 
Description : 


If  the  form  of  the  entry  is  not  LITERAL,  and  the 

IN^GER,  the  entry  cannot  be  a power 
entry  is  a positive  integer  literal,  it 
is  tested  to  see  if  it  is  a power  of  two.  If  it  is  a 
power  of  two,  INX__SHIFT  (OP)  records  the  power. 
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PROC  FUNC  SETUP 


Procedure 


Purpose : 

To  generate  argument  passing  code.  The  arguments  have 
already  been  accumulated  in  ARG_STACK.  Consistency  is  checked 
for  number  of  arguments,  INPUT/ASSIGN  type,  type.  For  INPUT 
Lguments,  copies  are  generated  where  necessary.  Code  is  generated 
to  pass  the  arguments.  If  there  are  not  enough  registers,  the 
parameter  is  passed  in  the  stack. 


Local  Variables ; 


ARGSTART : 
ARGSTOP ; 
ASSTGN_PARM; 
NAME_PARM: 
CONFLICT: 


point  in  ARG_STACK  of  first  argument 

point  in  ARG_STACK  of  last  argument 

true  if  current  argument  is  ASSIGN 

true  if  current  argument  is  NAME  variable 

true  if  type  conflict  between  formal  and  actual 
parameter 
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PROCENTRY 


Procedure 


Purpose ; 

To  do  the  bookkeeping  for  initializing  tables  describixi  j 
a procedure,  task,  compool,  unlabelled  update  block,  program, 
or  external  label.  Set  up  block  definition  table  entry, 
set  up  stack  frame  r-arameters. 
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PUSH_ARRAYNESS 

Procedure 
Purpose ; 

To  copy  array-do-loop  entry  from  outer  level  to 
inner  level. 

Parameters  passed; 

LEVEL  = call  stack  pointer. 

Communicates  via: 

Array-do-loop  stack. 

Description ; 

If  this  is  not  outermost  level  and  it  is  a normal 
procedure/function  call,  do  the  copy;  otherwise,  initialize 

to  0 . 


5-270 

giERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE.  MASSACHUSETTS  02138  • id17)  661-1840 


REGISTER  STATUS 


'’Hjr 

Procedure 


Purpose ; 

Prints  out  register  status  if  HALMAT__REQUESTED . In 
production  runs,  it  is  a no  op. 
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RELEASE  TEMP 


Procedure 


Purpose ; 

Called  when  an  error  is  encountered  to  clean  up 
various  stacks,  and  reset  various  stack  pointers. 

Parameters  Passed; 


None. 

Local  Variables; 


None . 

Communicates  via; 

Globally  declared  stack  pointers,  the  Indirect  Stack 
and  Storage  Descriptor  Stack. 

Description; 

This  procedure  sets  various  flags  and  stack  pointers 
to  zero.  It  also  reinitializes  the  Indirect  Stack,  clears 
the  Register  Table,  and  frees  the  Storage  Descriptor  Stack 
entries. 


5-272 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


RESUME  LOCCTR 


Procedure 


Purpose  t 

To  resume  a given  location  counter  at  its  last 
value. 

Parameters  Passed; 

NEST:  The  number  of  the  CSECT  whose  location  counter 

is  to  be  resumed. 

Local  Variables: 


None . 

Communicates  via: 

The  global  variable  INDEXNEST. 

Description: 

The  value  of  INDEXNEST,  the  CSECT  for  which  code  is 
currently  being  generated,  is  checked.  If  its  value  is 
NEST,  the  procedure  returns.  Otherwise,  INDEXNEST  is  set 
to  NEST,  which  automatically  ensures  the  proper  location 
counter  is  resumed  since  the  location  counters  are  an 
array  indexed  by  CSECT  number.  EMITC  and  EMITW  are  called 
to  omit  intermediate  code  indicating  the  CSECT  change. 

Two  variables  must  be  reset  as  a result  of  the  CSECT 
change.  CCREG  must  be  set  to  0 to  indicate  the  condition 
code  is  no  longer  valid.  STOPPERFLAG  is  set  to  false. 

Reference : 

Appendix  C,  Section  on  CSECT  Definition  in  HAL/S-360 
Compiler  Spec. 
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RETURN_STACK_ENTRY 

Procedure 

Errors  Detected; 

None . 

Purpose ; . 

To  release  an  Indirect  Stack  entry. 

Parameters  Passed; 

PTR:  A pointer  to  the  Indirect  Stack  entry  to  be 

released. 

Local  Variables; 

None . 

Communicates  via; 

Changes  linked  list  of  free  stack  entries. 
Description; 

This  procedure  adds  the  stack  entry  pointed  to  by 
PTR  to  the. linked  list  of  free  Indirect  Stack  entries. 
This  is  done  by  setting  STACK_PTR (PTR)  to  STACK_PTR 
and  STACK_PTR  to  PfR.  . 

Indirect  Stack ; 

before  RETURN  STACK  ENTRY (m)  After 


References ; 

SETUP_STACK,  RETURN_STACK_ENTRY , GET_STACK_ENTRY 
together  describe  the  allocation  and  deallocation  of 
Indirect  Stack  Entries. 
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■i  '#■ 


Procedure 


SAVE  FLOATING  REGS 


Purpose ; 

Routine  to  save  contents  of  all  floating  point 
registers. 

Parameters  Passed  t 


None. 

Local  Variables; 

!;■  Do  Loop  temporary. 

Communicates  via; 

Does  not  affect  any  variables  directly,  but  it 
calls  CHECKPOINT_REG  which  does. 

Description ; 

This  procedure  saves  the  contents  of  each  of  the 
floating  point  registers,  by  calling  CHECKPOINT_REG 
for  each  register  in  turn.  CHECKPOINT^REG  does  the 
actual,  work  involved  in  saving  the  register  contents. 
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SAVE  LITERAL 


Function 


Errors  Detected; 

BS  109:  Constant  table  overflow. 

Purpose : 

To  add  a literal  to  the  Constant  Table  and  the 
appropriate  literal  pool. 

Parameters  Passed; 

OP;  A pointer  to  a literal's  Indirect  Stack  entry. 
OPTYPE;  The  literal's  type. 

Local  Variables; 

PTR;  A pointer  to  the  literal's  Constant  Table  entry. 
Value  Returned; 

PTR;  A pointer  to  the  literal's  Constant  Table  entry. 
Message  Condition; 

DIAGNOSTICS 
Description ; 

OPTYPE  is  set  to  OPMODE (OPTYPE) , the  mode  associated 
with  the  operand  type  which  will  be  used  to  determine  the 
literal  pool  the  operand  belongs  in.  FORM (OP)  is  used  to 
specify  the  intermediate  code  qualifier  for  the  literal 
pool  which  is  determined  by  adding  OPTYPE  to  CHARLIT.  The 
literal  pool  qualifiers  are  consecutive  numbers  starting 
at  CHARLIT (INITIAL  8),  and  can  be  determined  in  this  way. 


REPRODUCIBILITY  OP  111.. 
ORIGINAL  PAGE  IS  POOR- 

5-276 

INTERMETRICS  INCORPORATED  -701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


SAVE  LITERAL  (Con't.) 


The  procedure  then  searches  the  Constant  Table  to 
see  if  OP  is  in  it.  Otherwise,  it  adds  it  to  the  table. 

When  the  constant  has  been  found,  the  pointer  to  its  entry 
is  returned  and  LOG (OP)  is  set  to  this  pointer. 

The  Constant  Table  can  be  considered  to  be  five  linked 
lists : one  for  each  Literal  Pool . The  OPMODE  of  the  literal 

determines  the  Literal  Pool.  CONSTANT_HEAD  of  the  OPMODE 
points  to  the  beginning  of  a linked  list  of  all  iternls  in 
the  same  pool.  Each  member  of  the  linked  list  is  a Constant 
Table  entry  with  the  following  fields; 

CONSTANT  PTR:  Pointer  to  the  next  Constant  Table  entry 

” for  a literal  in  the  same  pool.  CONSTANT_ 

HEAD  points  to  the  newest  entry  in  the 
pool.  CONSTANT_PTR  points  to  the  entry 
preceding  a given  entry. 

CONSTANTS:  The  value  of  the  constant.  For  double 

precision  constants,  the  entry  and 
subsequent  entry  together  hold  the  value. 

The  entries  in  the  Constant  Table  are  allocated  consecutively 
and  are  not  deallocated.  CONSTANT_CTR  points  to  the  last 
allocated  entry  in  the  Table. 
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SAVE  REGS 


Procedure 


Purpose ; 

To  save  the  contents  of  specified  fixed  registers 
starting  with  R4,  and  the  contents  of  all  the  floating 
registers  or  of  R2  if  desired. 

Parameters  Passed; 

Nl;  The  huinber  of  the  last  fixed  register  to  be 
saved. 


FLT;,  A flag: 


Value  Meaning 

0 Only  fixed  register  to  be  saved 

1 Floating  registers  to  be  saved 

10  R2  to  be  saved 

11  R2  and  floating  register  to  be 

saved . 


Local  Variables; 

■ I : Do  Loop  temporary. 

Communicates  •‘/ia; 

Does  not  affect  any  variables  directly  but  it  calls 
CHECKPOINT  REG  and  SAVE_FLOATING_REGS  which  do . 

Description; 

The  routine  calls  CHECKPOINT  REG  to  save  the  contents 
of  thffixed  registers  from  R4  and  of  any  registers 

indicated  by  FLT. 
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SEARCH  REGS 


Function 


Purpose ; 

To  check  if  a register  contains  a specified  Indirect 
Stack  entry. 

Parameters  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 

Local  Variables: 


RC:  The  register  class  that  could  hold  OP. 

I,J:  Temporary  variables. 

Value  Returned: 

The  number  of  the  register  containing  the  desired 
information,  or  -1  if  none  do. 

Description : 

To  narrow  the  search,  RC,  the  register  class  associated 
with  OP,  is  determined  by  evaluating  RCLASS (TYPE (OP) ) . Once 
the  register  class  is  determined,  RCLASS_START(RC)  and 
RCLASS_START (RC+1)  give  the  range  of  index  in  REGISTERS, 
that  contain  the  register  numbers  within  that  class.  Every 
register  in  the  appropriate  class  is  searched  until  one 
containing  the  information  is  found,  or  until  the  registers 
in  the  class  are  exhausted.  For  each  register,  the  Register 
Table  fields  and  the  Indirect  Stack  entry's  fields  are  compared 
in  a manner  determined  by  the  Stack  entry's  form.  If  all  the 
relevant  fields  match,  the  register  number  is  returned, 
otherwise,  the  search  continues. 
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SET  AREA 


Procedure 


Purpose ; 

TO  establish  the  area  of  an  Indirect  Stack  Entry. 
Parameters  Passed; 

PTR:  A pointer  to  an  Indirect  Stack  Entry. 

Local  Variables; 

None. 

Communicates  via: 

The  global  variable  AREASAVE. 

Description; 

The 

S tAe^ndlrect  Stack  entry.  TYPE. 


PACKTYPE 


Value  Description 

0 Vector/Matrix 

1 Bit 

2 Character 

3 Integer/Scalar 

4 Structure 


AREASAVE 


Number  of  items  in  the  vector  or  matrix, 
1 

CSE(SIZE(PTR)+2 

unless  it  is  an  arrayed  character 
formal  parameter  where  it  it  SYT_DiMO. 

1 

The  size  of  the  template  plus  the 
displacement  of  the  template. 
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1 


:^.-Sk 


W^. 


SET  ARRAY  SIZE 


Function 


Purpose ; 


Parameters  Passed; 


OP; 

A pointer  to  the  Symbol  Table  entry 
3T©  ii03r0nc©  # 

for  the 

CON: 

The  extra  storage  necessary  to  pass 
information.  ^ 

the 

Local  Variables; 

PTR: 

The  pointer  to  the  Indirect  Stack  entry  set 
up  for  the  reference.  ^ 

Value  Returned: 

PTR: 


The  pointer  to  the  Indirect  Stack  entry 
set  up  for  the  reference.  ^ 


Description,; 

PTR  is  set  to  the  result  of  callinq  GET  STApk 

:1P  =rEf  HI- 

by  the  parameters  CON  if  it  is  non-7(=rr.^  determined 
qvT  tp\7pt  /■rm\  ^ , non-zero.  Otherwise, 

shiftina  it  amount  in  fullwords  and 

shifting  It  by  1,  specifies  the  number  of  halfwords 

value  oTmr  u 

References ; 

of  Of 
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SET  ERRLOC 


Procedure 


Purpose ! 

Assign  stack  displacement  for  error  number  and  fill 
in  information  in  indirect  stack  entry.  The  displacements 
are  assigned  with  the  more  specific  coming  first  like  this: 


loc 

4- 


ERRSEG 


1 

m 

h 

* 

* 

* 

MAXERR  + ERRSEG 


Parameters ; 

OP;  indirect  stack  entry  for  error  group  number 
ERRNUM:  integer  value  of  error  number 
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SET  LABEL 


Procedure 


Purpose : 


To  set  the  location  of  a specified  statement  number. 


Parameters  Passed : 


STMTNO:  The  statement  number  whose  location  is  to  be 

set . 


FLAGI:  If  0 indicates  that  the  label  may  be  the 

destination  of  a block. 


PLAG2:  J^J^statement  number  is  for  a Phase  2 generated 


Local  Variables ; 


PAGE:  Never  referenced. 


Communicates  via : 


LOCATION,  LOCATION_LINK,  LAST  LABEL. 


Message  Conditions: 


ASSEMBLER  CODE 


References 


Appendix  C,  Section  on  Label  Definition,  HAL/S-360 
Compxler  Spec.  f / 


Description : 


If  FLAGI  0,  CLEAR REGS  is  called  to  clear  the 

STOPPERFLAG  are  reset  to  0. 

The  statement  number's  location,  LOCATION (STMTNO)  is  set 
to  LOCCTR(IHDEXNEST),  the  current  location  counter.  iSf 

is  added  to  the  linked  list  of  labels 
Within  the  current  CSECT  by  assigning  LASTLABEL (INDEXNEST) 

LASTLABFT  assigning  STMTNO  to 

LASTLABEL (INDEXNEST ) . If  the  statement  number  belongs 

o a phase  2 generated  label,  the  appropriate  intermediate 
code  IS  emitted  by  calling  EMITC.  ^ ermediate 


because  the  label  may  be  branched  to,  and  by  clear incr 
all  the  registers,  the  code  generation  process  does  not  have 
to  worry  about  different  values  in  the  Asters  dLSnd: 
on  the  statement  branching  to  the  label.  ^ ^ 
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r 


SET  LOCCTR 


Procedure 


I 


Purpose; 

To  force  the  location  counter  to  the  desired 
CSECT  and  value. 

Parameter  Passed; 

VALUE;  The  value  of  the  location  counter  is  to  be 
set  to. 

nest;  The  number  of  the  CSECT  whose  location  counter 
is  to  be  set. 

Local  Variables; 

None . 

Communicates  via; 

The  global  variables  INDEXNEST,  LOCCTR (INDEXNEST) . 
References ; 

Appendix  C>  Section  on  CSECT  Definitions,  HAL/S-360 
Compiler  Spec. 

Description; 

If  INDEXNEST,  the  CSECT  for  Which  code  is  currently 
h^ina  Generated,  is  NEST  and  LOCCTR (INDEXNEST) , its  ^ 
location  counter  is  VALUE,  the 

wise  INDEXNEST  is  set  to  NEST,  and  its  location  counter 
is  set  to  VALUE.  EMITC  and  EMITW  output  intermediate 
code  indicating  the  changes. 
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SETUP  ADCON 


Procedure 
Purpose ; 

To  modify  an  Indirect  Stack  entry  for  a label  so  that 
its  form  is  EXTSYM,  and  the  entry  represents  an  address 
constant  for  the  label. 


Parameter  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 


Local  Variables; 

SY:  The  Symbol  Table  entry  associated  with  OP. 

IX:  The  CSECT  number  used  for  addressing  the  label. 

Communicates  via; 

Indirect  Stack. 

References ; 

Indirect  Stack  and  Symbol  Table. 

Description ; 

If  the  operand's  FORM  is  neither  LBL  or  SYM,  the  procedure 
resturns  since  only  these  two  forms  may  need  label  address 
constants.  If  OP's  Symbol  Table  entry  has  the  NAME  attribute, 
its  SYT  TYPE  is  set  to  SYM,  and  the  procedure  returns.  Label 
address”constants  are  not  used  for  variables  with  the  NAME 
attribute . 

The  procedure  determines  how  the  address  constant 
should  be  set  up.  For  procedures,  variables,  and  EXTERNAL 
templates,  IX  is  set  to  the  SYT_SCOPE  of  SY , the  CSECT 
associated  with  SY.  For  programs,  tasks,  and  compools, 
addressing  is  carried  out  using  address  constants  in  PCEBASE 
so  IX  is  set  to  PCEBASE.  INX_C0N(0P)  will  give  the  offset 
in  PCEBASE  where  the  constant  is.  The  constant  is 
SYT  PARM(SY)*6,  where  SYT  PARM  is  a number  generated  by 
INITIALIZE  uniquely  identifying  each  program,  task,  or 
compool. 

The  form  of  the  stack  entry  is  changed  to  EXTSYM  to 
show  it  represents  a label  address  constant.  The  LOC 
field  of  the  entry  is  set  to  IX,  the  CSECT  used  for 
addressing. 
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SETUP  BOOLEAN 


Procedure 


Purpose ; 

To  generate  code  to  jump  on  success  or  failure  of 
relational  expression. 

Parameters  Passed; 

COND:  condition  code  to  branch  on 

FLAG*  ~ condition  fails,  jump  to  VAL(LEFTOP) 

1 - if  condition  fails,  jump  to  XVAL(LEFTOP) 
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SETUP_PRIORITY 

Procedure 
Purpose ; 

Construct  SVC  argument  list  for  update  priority. 
Parameters  passed; 

N;  pointer  to  HALMAT  operand  specifying  priority. 

Communciates  via; 

WORKl,  W0RK2,  emitting  code. 


/ 

a 
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SETUP  STACK 


Procedure 


Purpose : 


To  set  up  the  Indirect  Stack. 


Communicates  via; 

Sets  up  linked  list  of  Indirect  Stack  entries. 
Description ; 

This  procedure  forms  a linked  list  of  all  the  Indirect 
Stack  entries,  assuming  them  all  to  be  free.  As  a result 
of  the  procedure  the  Indirect  Stack  looks  as  shown  below: 

100  0 ' 

99  100  I 
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SIZEFIX 


Procedure 


Purpose : 


To  set  up  Indirect  Stack  size  parameter  for  symbols. 
Parameters  Passed: 

PTR: . A pointer  to  an  Indirect  Stack  entry. 

OPl:  A pointer  to  the  Symbol  Table  entry  associated 

W 1 X • 

Local  Variables ; 

LITOP;  A temporary  variable. 

Communicates  via; 


size. 


The  Indirect  Stack  fields  related  to  the  entry's 


References ; 

See  Symbol  Table  for  a description  of  SYT  DIMS*. 
Description: 

procedure  sets  up  the  size  parameters  for  a 

of  fho  entry  according  to  the  PACKTYPE 

of  the  entry.  The  information  necessary  to  set  up  the 
parameters  is  in  OPl' s SYT_DIMs  field.  ^ 

Results  of  SIZEFIX  according  to  PACKTYPE (TYPE (PTR) ) : 

0:  Vector-Matrix:  Row:  The  number  of  rows  in  a matrix, 

or  1 for  a vector . 

Column:  The  number  of  columsn  in  a matrix 

or  components  in  a vector . 

DEL  = 0 to  indicate  no  partition. 
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1:  Bit 


SIZEFIX  (Con't.) 


ROW;  The  length  of  the  bit  string. 

COLUMN;  Pointer  to  an  Indirect  Stack  entry 
representing  the  position  of  the  first 
bit  in  a bit  string  in  a location  in 
core. 


2; 

Character 

ROW; 

The  length 

of  the  character 

string. 

3; 

4; 

Integer/Scalar 

Structure 

DEL; 

Pointer  to 

the  symbol  table 

entry 

of  the  structure's  template. 
ROW;  The  size  of  the  template. 


(In  some  cases,  ROW  is  referred  to  by  SIZE  which  is  declared 
to  be  "LITERALLY  'ROW'"). 


5-290 

INTERMETRICS  INCORPORATED  * 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


STACK  FARM 


Procedure 


Parameters  Passed; 

OP,  a pointer  to  an  indirect  stack  entry.  ( 

This  procedure  is  called  to  record  in  the  R_PARM  stack 
formal  parameters  which  have  been  set  up  to  be  passed  via 
registers,  whether  for  HAL  or  library  calls.  BACKUP_REG 
is  set  to  reflect  the  corresponding  REG  entry  in  the  event 
that  the  register  is  subsequently  checkpointed  before  the 
actual  caid.  is  issued. 


■4T  ^ 
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STACK  TARGET 


Procedure 
Parameters  Passed; 

OP,  a pointer  to  an  indirect  stack  entry. 

This  procedure  is  functionally , equivalent  to  STACK_PARM 
except  that  .the  TARGET_REGISTER  specified  is  reset. 


;i 


i 

t 
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/ 

1^^,,-^  .J.,-,  - - — ..  y-y  - X ' 


Procedure 


STACK  REG  FARM 


Parameters  Passed; 

Rf ' a register  nvunber-; 

TYP,  a -corresjionding  data  type  (optional). 


If  TYP  is  not  specified,  it  is  set  to  the  R TYPE  of  R. 
rind^dlta  GET_VAC,  specifying  register 

This  stack  entry  is  then  passed  to  STACK  FARM.  This 
routine  is  used  when  a register  parameter  is  created  for  which 
no  existing  VAC  type  stack  exists,  such  as  character  or  vector 
size  parameters. 


■ ■ 
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X. 


drop_parm_stack 


Procedure 

This 


INTERMETRICS  INCORPORATED  • 
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STEP  LINE# 


J$  =r- 


Procedure 


Purpose; 

To  scan  ahead  in  the  HALMAT  and  get  line  number  for 
next  statement . 


3 
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STORAGE  ASSIGNMENT 


Procedure 


Purpose; 

To  determine  t^^^ariables^to^be  allocated 

The  symbol  table  pointers  j allow  packing, 

reside  in  SYT  SORT.  This  is  storaqe  for  boundary 

minimize  offsets,  and  ?egls?er  (IyT_BASE) 

alignments.  f are  then" 

and  displacement  from  that  ^ ^ new  scope  number 

fs'^enrounfe^er  """ 

proper  block  header . 
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STRUCTFIX 


Function 


Purpose ; 

To  prepare  an  Indirect  Stack  entry  containing  informa- 
tion about  a major  structure.  This  entry  is  set  up  to  do 
preprocessing  associated  withthe  major  structure  before 
modifying  the  entry  to  represent  a structure  node  reference. 

If  the  major  structure  has  no  subscripting,  STRUCTFIX  is 
called  by  GETjOPERAND  directly  before  resolving  the  node 
reference.  If  there  is  structure  subscripting,  STRUCTFIX 
is  called  by  GET_STRUCTOP  while  the  subscript  refere^nce  is 
being  resolved, and  GETjOPERAND  does  not  set  up  the  stack 
entry  again,  but  obtains  a pointer  to  it,  and  then  resolve$ 
node  references. 

Parameters  Passed; 

OP:  A pointer  to  a structure's  Symbol  Table  entry. 

FLAG:  1 if  OP  is  a SIZE  function  argument,  or  a 
struture  that  is  to  be  subscripted, 

0 otherwise. 

Local  Variables: 

* ‘ 

PTR:  A pointer  to  an  Indirect  Stack  entry  set  up  to 
represent  the  structure. 

Value  Returned: 

PTR:  A pointer  to  an  Indirect  Stack  entry  set  up  to 
represent  the  structure. 

References ; 

Array  Reference  Stack,  the  HALMAT  EXTN  and  TSUB  operators. 
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STRUCTFIX  (Con't.) 


Description; 

STRUCTFIX  calls  GET  STACK  ENTRY  to  get  a pointer,  PTR, 
to  an  ?S?r”t  Itack  Ent?y.  The  -“X' = 

S areat  deal  of  STRUCTFIX  parallels  the  case  of  GET  OPEKAwu 
levotS  S SySSoi  Table  Entries.  STRHCTpx  first  sets  up 
the  basic  information  needed  by  the  stack  entry. 


FORM (PTR) 
TYPE (PTR) . 


SYM 

SYT  TYPE (OP) 


LOC(PTR)  = op,  a pointer  to  the 
Symbol  Table  entry. 

L0C2(PTR)  = SYT_DIMS(OP) , a 

pointer  to  the  template. 

UPDATE  CHECK  is  called  to  update  any  lock  group  references. 
SIZEEIX  is  called  to  set  up  the  stack  entry  s size  fiel  . 

The  second  part  of  STRUCTFIX  takes  care  of  preparing  for 

array  or  subscript  processing  ®y'"^°J„gLiMITls^^ 

SET  AREA  is  called  XVAL(PTR)  and  SUBLIMIT  (STACK# ) 

Itl  ll't  tf  IreasaVe!  For  structures  AREASAVE  is  the  size 

o!us  displLement  of  the  template,  and  its 

used  fo?  indexing  from  one  copy  of  the  structure  to  the  next. 

^tHnlrniisroS  ?rrther 

p?ocessin“ol'’fsSScturrnldrSiiradfany^arra^ess  asso^ 

:i^VoroT":f  tSi  =fe^irkll‘I^tel’'l?r?LI?  ?i”^";’arrayness 

has  been  pushed  because  of  a call. 

The  preparation  so  far  is  relevant  to  array 

Tn?  fnS^i2?ess“y^^r^« 

FLAG=0,  STRUCTFIX  must  check  to  see  if  a LOOP 
+-0  nvnress  the  Structure  copies;  this  is  inaicatea  oy 
COCOPY (CALL  LEVEL) >0  which  shows  there  is  an  array  referenc  . 
““oFORM^Li.EVEL)  is  2,  no  loop  has  been  up  so 

KS’'l?°n^%rirp  S SlLsL^rsrncrth^’^lrrart^ierence 

a simple  arrayed  parameter.  These  would  occur  in 

l!ScfSele?Sna!s  ^ot*?n 

?i^^_^RR?yfEsrii  Sifed?*'?o"e:rroL^for^ 

arrayness. 

STRUCTFIX  returns  PTR,  the  pointer  to  the  Indirect  Stack 
entry . 
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STRUCTURE_DECODE 

Procedure 


Purpose : 

Part  of  the  process  of  setting  up  an  Indirect  Stack 
entry  for  a structure  node,  the  procedure  is  called  for 
each  Symbol  Table  entry  that  is  resolved  except  the  major 
structure  reference  and  the  last  reference  if  the  reference 
is  BY_NAME . 

Parameters  Passed; 

PTR:  A pointer  to  an  Indirect  Stack  entry  set  up  for 

the  structure  node  by  STRUCTFIX  and  modified  by 
calls  to  STRUCTURE_DECODE . 

OP:  A HALMAT  EXTN  operator  operand  number. 

BY_NAME:  The  operand  is  part  of  a NAME  pseudo-function. 

Local  Variables: 

R:  A register  used  for  setting  up  Indirect  Stack  entry 

for  a structure  node. 

Communicates  via: 

Indirect  Stack. 

References : 

The  HALMAT  EXTN  operator,  the  procedure  STRUCTFIX. 


. r : ■ ■ ■ 

■: 
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STRUCTURE__DECODE  ( Con ' t . ) 


Description; 

DECODEPIP  is  called  to  decode  the  operand  word  for  the 
next  Symbol  Table  reference,  and  L0C2 (PTR)  is  set  to  a 
pointer  to  the  reference's  Symbol  Table  entry.  STRUCT  CON(OPl), 
the  constant  associated  with  structure  addressing,  is 
incremented  by  SYT_^ADDR  of  the  Symbol  Table  entry,  the  displace- 
ment of  the  node  wTthin  the  structure . 

If  the  BY_NAME  flag  is  false  or  the  node  is  the  last 
operand  and  it  does  not  have  the  name  attribute,  the  way 
the  node's  stack  entry  is  addressed  must  be  updated. 
RESUME_LOCCTR (NARGINDEX)  is  called  if  a declaration  is  in 
effect  so  that  code  will  not  be  emitted  in  the  data  CSECT. 
INX_CON(PTR)  is  set  to  STRUCT_CON (PTR)  so  that  SUBSCRIPT 
RANGE_CHE'CK  can  be  called  to  modify  the  index  register  iF 
the  adjusted  displacement  is  not  addressable. 


Register  2 is  used  for  addressing,  but  if  the  form 
of  the  entry  is  not  CSYM  or  the  register  is  being  used, 

GET_R  must  be  called  to  get  a register.  The  register  is 
loaded  with  the  address,  and  DROP_INX  is  called  to  drop 
the  index  register.  Various  fields  must  be  modified; 

INX_CON,  STRUCT_CON=0  Since  the  constants  have  been 

incorporated. 

FORM-CSYM  Since  the  entry  has  its  own  base 

and  displacement. 

DISP=0  The  address  is  all  in  the  base 

register. 

BASE,  BACKUP_REG=R  The  register  containing  the  address. 
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STRUCTURE  WALK 


Procedure 


Purpose ; 

to  compute  the 

terminal  node  by  STRUCTURE  ADVANCE?*'^STROCTSra®ADVANCE*^ 

fTh^oih^rn^^a::  u^SLrsTjsEsior^^  F™^ 

The  process  continues  until  the  dSsJref iJIment^J;  ?o^nd!®™"“" 
Parameters ; 

walk#:  The  number  of  the  item  desired.  Notice  that 

a terminal  node  may  contain  many  items. 

Other  Variables; 

INITWALK:  The  number  of  items  already  passed.  Initially 

we  are  not  even  at  an  item  so  INITWALK  starts 

INITDECR:  INITWALK 

N:  Number  of  items  left  in  terminal  node 

INITOP:  Symbol  table  pointer  for  node 

INITADDR;  Total  offset  of  INITOP 
INITTYPE:  Type  of  INITOP 
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Procedure 


SUBSCRIPT  MULT 


Purpose ; 

To  multiply  an  Indirect  Stack  entry  for  a subscripting 
index  of  a subscript. 


Parameters  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry  for  a subscript. 

VALUE:  If  positive,  the  value  the  subscript  is  to  be 
multiplied  by;  if  negative,  a negative  pointer 
to  the  Symbol  Table  reference  for  the  subscript. 

Local  Variables: 

LITOP:  A pointer  to  the  Indirect  Stack  entry  set  up 

for  VALUE. 

Communicates  via: 

Calling  code  emitters. 

Description : 

INX_MULT,  the  constant  multiplier  associated  with 
two  dimensional  subscript  references,  is  set  to  one  since 
SUBSCRIPT_MULT  will  take  care  of  the  multiplying  if  called 
from  SUBSCRIPT2_MULT. 

If  VALUE  is  negative,  SET_ARRAY_SIZE  is  called  to  create 
a stack  entry  for  the  multiplier,  and  CHECK_ADDR_NEST  is  called 
to  set  up  proper  addressing.  Code  is  emitted  to  perform  the 
multiplication,  according  to  whether  the  AP-101  index  register 
self -alignment  feature  is  in  effect. 

If  VALUE  is  a literal,  GET_INTEGER_LITERAL  is  called 
to  get  a stack  entry  for  the  literal.  Code  is  emitted 
to  perform  the  multiplication  according  to  whether  the 
multiplier  is  a power  of  two  and  whether  the  compiler 
SELF_ALIGNING  option  is  in  effect. 

op's  register  is  marked  unrecognizable  since  its 
contents  have  been  modified. 
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SUBSCRIPT  RANGE  CHECK 


Procedure 


Purpose ; 


OP:  A 

pointer  to  an  Indirect  Stack  entry. 

Local  Variables: 

INCOP : 

Indirect  Stack  entry  used 
for  modifying  OP’s  index  register. 

CON; 

The  indexing  constant  used  for  addressing  OP. 

RANGE: 

A temporary  variable. 

REMOTE : 

A flag  indicating  whether  or  not  OP  has  the 
REMOTE  attribute.  nas  the 

Communicates 

via: 

The  Indirect  Stack. 

Description; 

entry Stack 

there  is  no  aaaressin^rprSL^ 

oratenAtfSp'faLlLcemJ^rfor'aaaresi?^^  ' 

resulting  aisplacement  is  between  0 ana  204^ 

variable  ^NGE  together  with  S aL“sel°"-tes^\MsriF 

the  resulting  displacement  would  be  outside  of  th-iQ  i-anrr 

hLft'’"K  attribute,  the  ?Saei?ng°consiSnrw?!l 

have  to  be  incorporated  into  OP's  index  register.  ^ 
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If  the  SELF-ALIGNING  compiler  option  is  in  effect,  that 
is,  the  context  of  the  AP-101  index  registers  will  be  aligned 
automatically,  the  index  constant  must  be  modified.  It  must 
be  divided  by  the  number  of  halfwords  occupied  by  one  item  of 
OP'S  operand  type,  BIGHTS (TYPE (OP) ) . The  automatic  alignment 
will  multiply  the  index  by  that  amount  during  address  computa- 
tion. 

GET_STACK_ENTRY  is  used  to  get  INCOP,  a pointer  to  a free 
indirect  stack  entry  which  will  be  used  for  incorporating  the 
constant  into  the  index  register's  constant.  Before  doing 
this,  OP'is  stack  entry  must  be  checked  to  see  if  it  has  an 
index  register.  If  it  does  not  have  one,  or  if  it  has 
ssveral  users,  FINDAC  is  called  to  find  an  index  register. 

In  : the  second  case,  MOVEREG  is  called  to  move  the  register 
contents  and  attributes  to  the  new  index.  REG (INCOP)  is 
set  to  the  index  register,  CON  (INCOP)  to  the  indexing  constant. 
INCORPORATE  is  called  to  add  the  constant  to  the  register. 
INX_REG(OP)  is  set  to  REG (OP),  and  INX_CON(OP)  is  set  to  0 
since  the  constant  has  been  incorporated.  INCOP 's  stack  entry 
may  be  returned. 


SUBSCRIPT2  MULT 


Procedure 
Purpose ; 

To  generate  code  of  form 

LEFTOP  MULT  RIGHTOP 

old_index  = old-index  * dimension  + next_subscript 

The  bulk  of  the  routine  attempts  to  find  the  value 
already  in  a register;  otherwise,  it  would  be  much  shorter. 

Parameters : 

mult  = dimension  multiplier 
Local  variables; 

I;  just  a dummy 

R:  register  used  for  calculation 


5-305 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  ‘ CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


SYT  COPIES 


Procedure 


Purpose ; 

To  find  the  arrayness  of  Symbol  Table  variables  and 
record  the  information  in  the  Array  Reference  and  Array 
Do  Loop  Stacks. 

Parameters  Passed; 

OP : A pointer  to  a Symbol  Table  entry . 

Local  Variables; 

I,J:  Temporary  variables. 

Communicates  via: 

Refarence  Stack  and  SUBLIMIT, 

Description; 

SYT  COPIES  resets  the  values  of  DOPTR (CALLJLEVEL) 
and  DOTOT(CALL  LEVEL  to  their  base  values  which  are 
respectively  SDOPTR(CALL__LEVEL)  and  SDOPTR  (CALL_LEVEL)  + 
DOCOPY(CALL  LEVEL).  This  is  necessary  because  arrayness 
is  pushed  from  an  outer  to  an  inner  level  when  dealing 
with  invocation  references. 


If  the  Symbol  Table  entry  is  arrayed,  SYT_COPIES  also 
sets  up  the  entries  in  SUBLIMIT  that  will  contain  arrayness 
information.  SUBRANGE  is  used  as  a temporary  variable  xn 
the  process.  STACK#  will  be  0 unless  OP  is  a subscript 
in  a subscript  reference  for  a variable  with  m dimensions 
of  arrayness.  In  this  case,  STACK#  is  m+1.  At  the  end 
of  SYT  COPIES,  SUBLIMIT  contains  the  following  nev/  informa- 
tion: ” (Assume  OP  has  n dimensions) : 

SUBLIMIT (STACK#)  The  size  of  the  1®^  dimension 

: ^ th  . 

SUBLIMIT (STACK#+n-l)  The  size  of  the  n dimension 

SUBLIMIT (STACK# +n)  AREASAVE 


p-RPROBUCIBiLrXY  OF  THF' 
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I 


'sE.^ 


Procedure 


TERMINATE 


Purpose ; 

To  handle  logical  control  after  GENERATE 
GENERATEjCONSTANTS 

emit  code  end  intermediate  instruction 
OBJECT_CONDENSER 

Create  ESD  entries  for  external  labels 
initialize  for  OBJECT_GENERATOR 
OBJECT  GENERATOR 
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UNSPEC 


Function  Fixed 
Parameters  Passed; 

F,  a fixed  point  value' or  descriptor. 


Values  Returned; 

F,  a fixed  point  value. 


This  function  is  the  opposite  of  the  DESC  function. 

The  argument  passed  is  a character  string  descriptor 
word  which  is  interpreted  as  a fixed  point  integer  upon 
return, .allowing  assignment  into  a fixed  variable.  This 
routine  is  used  during  initialization  to  build  an  array  which 
can  later  be  referenced  using  the  DESC  function,  by-passing 
the  1024  descriptor  limitation  of  XPL. 


! 5-3.-08 

V ■ 
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UNRECOGNIZABLE 


Procedure 


Purpose; 

To  mark  the  contents  of  a register  unknown  without 
decrementing  the  number  of  claims  on  its  contents. 

Parameters  Passed; 

R;  The  register. 


Local  Variables; 
None . 


Communicates  via; 

The  global  variable  USAGE (R). 
Description ; 


The  rightmost  bit  of  the  register's  USAGE  is  set  to  0 
to  indicate  its  contents  are  unknown.  This  is  done  because 
the  procedures  which  search  the  Register  Table  for  registers 
with  certain  properties,  only  look  at  the  entries  for  registers 
whose  USAGE  is  odd.  Sometimes,  a code  emitter  will  be  called 
to  generate  code  that  modifies  the  register's  contents 
without  modifying  any  of  the  register's  attributes  in  the 
Register  Table.  By  marking  the  register  unrecognizable,  the 
register's  entry  will  not  be  considered  when  the  table  is 
searched. 


1 
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UPDATE  CHECK 


Procedure 


Purpose ; 

To  keep  track  of  all  lock  groups  used  within  an 
update  block. 

Parameters  Passed; 

OP:  A pointer  to  a symbol  table  entry. 

Local  Variables: 

None . 

Communicates  via : 

UPDATE_FLAGS  LITERALL  SYTjCONST  (UPDATING) . 
References : 

Description  of  the  Symbol  Table,  Description  of 
Local  Block  Data  Area,  LOCK_ID  Field. 

Description: 

The  procedure  first  checks  to  see  if  code  for  an 
UPDATE  block  is  being  generated.  This  is  indicated  by 
UPDATING  > 0;  UPDATING  is  the  pointer  to  the  symbol 
table  entry  of  the  UPDATE  block.  If  this  is  the  case, 
SYT_CONST (UPDATING)  is  modified  to  reflect  OP's  lock 
group.  The  purpose  of  this  procedure  is  to  determine 
the  lock  groups  in  the  UPDATE  block  so  that  BLOCKjCLOSE 
may  set  up  the  block’s  Local  Block  Data  Area. 

I . 

r 

i 
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UPDATE  INX  USAGE 


Procedure 


Purpose ; 


To  verify  an  Array  Index  Indirect  Stack  entry's 
register  is  safe. 


Parameter  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 

Local  Variables; 

RM;  Never  referenced. 


Communications  via; 
Register  Table, 


Description; 

If  op's  register  has  a claim  on  it  and  its  contents 
will  be  modified,  NEW_REG  is  called  to  get  OP  another 
]»0gister.  Otherwise,  the  register's  USAGE  is  incremented 
by  2 to  show  it  has  another  claim  on  it;  the  register's 
USAGE  LINE  is  set  to  the  current  line  of  HALMAT. 
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VAC  COPIES 


Procedure 


Purpose ; 

To  set  up  indexing  into  shaping  function  results. 
Parameters  Passed; 

OP:  A pointer  to  an  Indirect  Stack  Entry. 

Local  Variables: 

I:  A Do  Loop  temporary. 

Communicates  via: 

Array  Reference  stack  and  SUBLIMIT. 

Description: 

This  procedure  parallels  the  function  of  SYT  COPIES 
but  instead  of  working  on  a stack  entry  that  has  Just  been 
set  up  for  Symbol  Table  entry,  it  uses  a stack  entry  that  has 
previously  been  set  up  to  represent  the  results  of  a 
shaping  function.  The  first  thing  the  procedure  does  is 
to  check  that  the  entry  has  arrayness;  if  it  does  not, 
this  procedure  is  unnecessary. 

VAC_COPies  starts  by  resetting  DOPTR{CALL  LEVEL)  and 
DOTOT(CALL_LEVEL)  to  their  former  values.  This  is  necessary 
because  arrayness  is  pushed  from  an  outer  to  an  inner  level 
when  dealing  with  invocation  references. 

Then,  the  entries  in  SUBLIMIT  that  will  contain  OP's 
arrayness  information  are  assigned  starting  at  entry 
STACK#.  STACK#  will  be  0,  unless  the  Indirect  Stack  entry 
is  a subscript  of  a variable  with  m dimensions  of  arrayness. 
In  this  case,  STACK#  is  m+1.  VAL(OP)  is  a pointer  to  the 
first  entry  in  SF_RANGE  containing  information  about 
op's  arrayness. 
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VAC  COPIES  (Con't.) 


The  results  of  the  assignments  are: 

Assigned  to 

SUBLIMIT (STACK# ) SF_RANGE (VAL (OP ) ) 

SUBLIMIT (STACK#+1)  SF_RANGE (VAL (OP) +1) ) 


Description 

The  size  of  the  1 
dimension 
The  size  of  the  2 
dimension 


St 


nd 


SUBLIMIT (STACK#+COPY (OP) -1)  SFJRANGE (VAL (OP) +COPY (OP) -1)  The  size  of  the  last 

dimension 

SUBLIMIT (STACK#+COPY (OP)  AREASAVE  This  is  computed  by 

calling  SET_AREA 


FREE_ARRAYNESS  is  called  to  set  up  indexing  for 
unsubscripted  variables. 


I 


f »■ 


INTERMETRIC:-  NGORPORATED 
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VARIABLES 


Function 


Purpose: 

To  compute  space  required  for  a variable  and  enter 
it  in  the  symbol  table. 

Parameters  Passed: 

OPl  = symbol  table  pointer. 

Value  returned: 

Size  of  variable  or  single  element  of  array. 


TlTi5PK0I)UCBnjlT^ 

PAGE  ® 


OtlXGE^M- 
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Kf^.  ■■A; 


''^f  • i*M*f- 


Procedure 


VERIFY  INX  USAGE 


Purpose ; 

To  protect  an  index  register  prior  to  adjusting  its 
contents. 


Parameter  Passed; 

OP:  A pointer  to  an  Indirect  Stack  entry. 


Local  Variables: 

R:  An  index  register. 


Communications  via; 

Register  Table  and  Indirect  Stack. 


Description; 

If  op's  index  register  has  only  one  or  no  claims  on 
it,  it  is  marked  unrecognizable  to  prevent  other  users  from 
mistaking  the  register's  contents.  If  the  index  register 
has  several  users,  FINDAC  is  called  to  find  it  another 
register  to  use  an  an  index.  The  new  index  register  is 
loaded  with  the  contents  of  the  old  register,  and  the  USAGE 
of  the  old  index  register  is  decremented  by  2 to  show  there 
is  one  less  claim  on  it. 


; ' ' 

. ... 
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VMCALL 


Procedure 


Purpose ; 

To  generate  calls  to  library  routines  for  performing 
vector-matrix  operations.  The  routine  generates  code  to 
load  all  and  only  those  parameters  required  by  the  library 
routine  (as  determined  by  array  CTRSET)  and  then  calls 
GENCALL  to  generate  the  actual  call. 

Parameters: 


OPCODE : 

HALMAT  Style  opcode 

OPTYPE : 

true  if  double  precision 

OPO: 

indirect  stack  entry  for 

result 

OPl: 

indirect  stack  entry  for 

first  operand 

OP2: 

indirect  stack  entry  for 

second  operand 

PART: 

paritition  information 
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6.0 


PHASE  1.5  - THE  OPTIMIZER 


6 . 1  Introduction 


6.1.1  General  Description 

The  HAL/S  Optimizer  takes  HALMAT  produced  by  Phase  I 
and  performs  the  following  functions  : ’ 

- Common  subexpressions  (CSE's)  are  recognized. 
Additional  constant  folding  is  carried  out. 

- Unneeded  divisions  are  replaced  by  multiplications. 

Superfluous  matrix  transpose  operations  are 
eliminated. 

Altered  HALMAT  is  then  passed  to  Phase  II  for  object  code 
generation. 


6.1.2  Design  Comments 

The  most  important  design  consideration  is  that  the 
Optimizer  does  nothing  to  most  HAL/S  statements!  Thus,  the 
sooner  this  is  recognized,  the  less  time  wasted  on  a statement 
and  the  more  efficient  is  the  Optimizer.  More  concretely,  the 
following  features  are  of  note; 

1.  The  CSE_TAB  doubly  linked  list  drastically  reduces 
the  number  of  Nodes  searched  for  CSE's.  This  might 
be  compared  with  FORTRAN  H where  the  previous  ten 
statements  are  searched  for  CSE's,  even  though  they 
may  contain  no  common  variable  with  the  present  state- 
ment . 

2.  If  a Node  does  not  have  enough  eligible  operands 
for  a CSE,  no  search  is  made  (SEARCHABLE  = FALSE). 

3.  The  Optimizer  is  quite  conservative.  For  example, 
all  user  procedure  and  function  calls  cause  ZAP_TABLES 
to  be  invoked. 
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6.1.3  Optimizations  Attempted 

This  section  describes  those  optimizations  presently 
implemented  in  the  HAL/S  OPTIMIZER  and  corresponding  Phase  II, 
and  gives  appropriate  user  information. 

Optimizations'  Performed 

1.  COMMON  SUBEXPRESSION  ELIMINATIONS 

a.  "Cummutative"  Operations 

For  bits ; & » 1 

For  scalars:  +,  <>,  ^ 

For  integers:  +,“,<> 

For  vectors  and  matrices:  +,  - 

Example  1 : 

F = A - D + B - C? 

G = D - C - B + A; 

becomes*: 

CSEl  = A - G; 

CSE2  = B - D; 

F ,=  GSEl  + CSE2; 

G = CSEl  - CSE2; 

Example  2 ; 

F = (A/B)  (C/D) ; 

G = C(B/D)  A; 

becomes; 

CSEl  = C/D; 

CSE2  = A/B ; 

F =■•  CSEl  CSE2; 

G = CSE1/CSE2; 


* Often  the  CSE ' s are  merely  retained  in  registers  with  no 
temporaries  created. 
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Example  3 ; 


F - A + B + (CD)  + E + (B  c A)  ; 

G = D + (DC)  + E + A + (A  B)  ; 
becomes : 

GSEl  = A + E + (C  D)  ; 

CSE2  = (A  B)  ; 

F = CSEl  + B + (CSE2  C) ; 

G = CSEl  + D + CSE2; 


b.  Noncommutative  Operas-.' 

For  bits;  |(,-i 
Built-in  functions:  XOR. 


2. 


For  scalars  and  integers;  **,  negation, 
conversion  to  integer  or  scalar  from 
integer  or  scalar. 

Built-in  functions:  ABS,  CEILING,  FLOOR,  ODD, 

ROUND,  SIGN,  SIGNUM,  TRUNCATE,  ARCCOS,  ARCCOSH, 
ARCSIN , ARCS INK , ARCTAN , ARCTANH , COS , • COSH , 
EXP,  LOG,  SIN,  SINK,  SQRT,  TAN,  TANH/  DIV,  MOD, 
SHL,  SHR,  INDEX,  LENGTH,  MIDVAL,  ARCTAN2, 
REMAINDER . 


3*  For  vectors  and  matrices*;  negation,  m v, 

V m,  v*v,  V X,  XV,  v/x,  m m,  v v,  m x,  x m, 
m/x,  m**i. 


Built-in  functions:  ABVAL,  DET,  INVERSE,  TRACE, 

TRANSPOSE,  UNIT. 


* i = non-negative  integer  literal, 

X = scalar  or  integer, 
m = matrix,  and 
V = vector. 
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Example  4: 

X_NEW  = X COS (THETA)  + Y SIN (THETA) ; 
Y_NEW  = Y COS (THETA)  - X SIN (THETA) ; 
becomes ; 

CSEl  = COS (THETA) ; 

CSE2  = SIN (THETA) ; 

X_NEW  = X CSEl  + Y CSE2; 

Y_NEW  = Y CSEl  - X CSE2 ; 


Example  5 : 

R1  = (-B  + SORT(B**2  - 4 A C) ) /2A; 

R2  = (-B  - SQRT(B**2  - 4 A C))/2A; 

becomes : 

CSEl  = -B; 

CSE2  = SQRT(B**2  - 4 A C) ; 

CSE3  = 2 A; 

R1  = (CSEl  + CSE2)/CSE3; 

R2  = (CSEl  - CSE2)/CSE3; 
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M-f- 


2-  MATRIX  TRANSPOSE  ELIMINATIONS 

V is  changed  to  V M and  V M^  is  changed  to  M V 
saving  a transpose  operation. 


Example  6 ; 

T fp 

M = M ( (Ml  + M2)  V) ; 

becomes ; 

M = (V  (Ml  + M2))  M; 


2-  CONSTANT  FOLDING 

Some  constant  folding  not  done  by  Phase  I involving 
integer  and  scalar  <>,  and  v is  performed. 


Example  7: 

F = (2A)/(4  B C) ; (all  scalars) 

becomes 

F = (.5A)/(B  C)  ; 

CSE's  involving  folded  constants  are  found. 

4.  DIVISION  ELIMINATIONS 

Terms  are  rearranged  to  eliminate  unneeded  divisions 
Example  8 ; 

F = (A/B)  (C/D)  (E/F) ; 

becomes ; 

F = (A  C E)/(B  D F)  ; 
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6.1.4  Scope  of  Optimization 

Conution  subexpressions  are  recognized  over  approximately 
basic  blocks  of  code.  No  CSE's  are  recognized  across: 

labels 

user  procedure  or  function  calls 
assignments  into  name  variables 
HALMAT  blocks 
inline  functions 
GO  TO's 
DO  case's 
DO  FOR's 
DO  UNTIL 'S 
END ' s for  above  3 

end's  for  simple  DO  END  if  there  is  a corresponding  EXIT 
beginnings  of  each  case  in  DO  CASE 
Major  or  Minor  Structure  Assignments 
READ,  READALL,  AND  FILE  I/O  instructions 
program  organization  operators  (e.g.  PROCEDURE,  CLOSE) 

WAIT  statements 
ERROR  statements 

IF  statement  conditionals  containing  more  than  one 
boolean  comparison 

ends  of  the  true  parts  in  IF  THEN'S  or  IF  THEN  ELSE' s 
ends  of  IF  THEN  ELSE ' s . 

The  presence  of  any  of  the  following  causes  the  entire 
statement  to  be  skipped. 

user  procedure  or  function  calls 
inline  functions 

statements  causing  array  loop  generation 
I/O  instructions 
shaping  functions 
character  operations 

bit  or  character  conversion  to  integer  or  scalar 
real  time  statements 
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Name  variables,  bit  conversions,  and  SUBBIT 's  are  not 
presently  included  in  CSE's. 

relational  "?  CSE's  may  occur  in  a part  of  the 

error°i“Se?eSLd?°‘’®  “*'®"  ^ containing,  a Phase  1 


Example  9 : 


B = SIN (A) ; 

C = SIN (A) ; 

D = SIN (A)  + USER_PUNCT (A) ; 

E = SIN (A) ; 

P = SIN(A); 

IF  SIN (A)  = SIN (A)  AND  B = SIN (A)  THEN  DO; 
G = SIN(A); 

END; 

ELSE  H - SIN(A); 

I = SIN (A) ; 


oecomes 


CSEl  = SIN (A) ; 

B = CSEl; 

C = CSEl; 

D = SIN (A)  + USER_PUNCT (A) ; 

CSE2  = SIN (A) ; 

E = CSE2; 

F = CSE2; 

* IF  CSE2  = CSE2  AND  B = SIN (A)  THEN  DO; 

G = SIN (A) ; 

END; 

ELSE  II  = SIN(A); 

I = SIN (A); 
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6.1.5  Programming  Considerations 

CSE's  and  division  elimination  may  alter  the  order  of 
computation  of  statements,  including  parenthesized  statements 
(see  Examples  2,  7,  8).  If  it  is  necessary  to  prevent  this, 
the  programmer  must  break  up  the  statements  in  question  into 
the  desired  computation  using  temporaries.  Thus,  example  8 
could  be  programmed: 

tempi  = A/E; 
temp2  = C/D; 
temp 3 = E/F; 

. F = tempi  temp2  temp3; 

to  insure  the  computation  of  the  three  terms.  If  the  order 
of  multiplication  is  also  important,  the  last  statement  could 
be  replaced  by; 

F = tempi  temp2; 

F = F temp3 ; 

Another  trick  is  insertion  of  DO;  EXIT;  END; . This 
prevents  CSE's  from  being  recognized  across  the  insertion. 

When  a CSE  is  recognized  by  the  compiler  the  resulting 
code  is  usually  better  than  if  the  programmer  had  created,  a 
temporary,  since  the  CSE  is  often  retained  in  a register  until 
use.  . - 

Thus : 

F = A + C D; 

G = B - C D; 

is  both  more  readable  and  produces  better  code  than; 

TEMP  = C D; 

F = A + TEMP; 

G = B - TEMP; 
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Compiler  Options 


By  specifying; 


OPTION= ' X6 ' 


in  the  EXEC  statement,  optimization  statistics  and  timing 
information  will  be  given. 

Related  Memos 

1.  IR  #127-1,  "Common  Subexpression  Recognition". 

2.  Shuttle  Memo  #110-74,  "HAL  Optimizations". 
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The  HALMAT  received  by  Phase  2 differs  from  that 
produced  by  Phase  1 in  the  following  respects  (see 
HAL/S-360  Compiler  System  Spec.,  p.  A-2) ; 


8 8 12  3 1 


Operator  Word 


VAC 

T |T 

16  8 4 2 1 1 

Operand  Word 


1.  Except  for  XXAR  operators  and  as  noted  below,  all  operators 
and  VAC  operands  have  tag  T = 0. 

2.  Operators  referenced  more  than  once  (CSE's)  have  T = "4". 
TSUB's  may  have  this  bit  set,  even  though  referenced  once. 

3 . VAC  operands  referring  to  operators  which  are 
referenced  by  later  VAC  operands  have  T = "2". 

4.  The  functions  previously  performed  by  Phase  2 
routine  OPTIMISE  are  now  performed  by  Optimizer 
routine  PREPARE_HALMAT . 

The  literal  table  may  receive  additional  entries  corresponding 
to  folded  constants. 

The  bit  in  SYT_FLAGS  corresponding  to  STUB_PLAG  (or 
ARRAY_FLAG)  is  set  in  procedures,  functions  and  inline 
functions  which  cannot  possibly  be  leaf  procedures  as  an  aid 
to  Phase  2 . 
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6.3  Global  Flow 


General  Description 

processed  sequentially.  First, 
^PARE_HAL^T  is  called.  If  optimization  has  not  been 
disabled  and  CHICKEN__OUT  determines  that  optimization  is 
allowed,  then  GROW_TREE  builds  the  NODE  list.  GET  NODE 

possibly  contain  a CSE 

R^RLSG^HALMAi  ? ^SE  MATCH_FOUND.  Finding  a CSE  causes 

and  ^Ri?-Mnn^  necessary  changes  to  the  HALMAT, 

ana  &trip_N0DES  to  modify  the  NODE  list. 

af  until  no  more  CSE's  are  found, 

entered  into  the  CSE  TAB  by  TABLE  NODE 
thus  allowing  it  to  match  later  CSE’s.  “ xABi.£._NODE , 

by  pr?n?suSry?‘^°"'  P>^inted  if  requested 


Number 

Variable 

Use 

MAIN_PR0GRAM : 

3.1,1 

CLOCK 

Array  of  times  for  PRINTSUMMARY . 

3.1.2 

STATISTICS 

Set  by  option  'X6'.  Prints 
final  statistics. 

3.1.3 

OPTIMIZING 

True  until  HALMAT  finished. 

3.1.4 

OPTIMIZER 
OFF  “ 

Disables  optimization.  Set 
by  option  *xi'  or  Phase  I bug. 

3.1.5 

LITCHANGE 

True  if  change  to  literal  file. 

3.1.6 

WORK  3 

Saved  FREELIMIT. 

MAIN_PR0GRAM  optimizes  the  HALMAT,  block  by  block. 


rppeoddcibmh  ofthe 

Sm.  page  is  pooe 
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p^’j^ 


<r 


6.3.2  INITIALIZE: 


Number 

Variable 

Use 

3.2.1 

TRACE 

Option  *X5'  or  DEBUG  H(5) 
gives  dynamic  printout  of 
program  flow  and  databases. 

3.2.2 

WATCH 

Option  'X5'  or  'X3'  or 
DEBUG  H(5)  or  DEBUG  H(3) 
lists  HALMAT  changes. 

3.2.3 

HALMAT_REQUE STED 

(Option  'X5'  and  <^5)  or 
DEBUG  H(6)  lists  HALMAT 
as  it  is  processed. 

3.2.4 

SYT_SIZE 

Symbol  table  size. 

3.2.5 

LITMAX 

Number  of  literal  blocks. 

3.2.6 

LITSIZE 

Literals  in  a block. 

3.2.7 

LITl 

First  words  array  of  literal 
block  in  core. 

3.2.8 

SYTJJSED 

Last  possible  valid  symbol. 

3.2,9 

SYTJWORDS 

Index  of  last  word  in 
VALIDITY_ARRAY  containing 
valid  bit. 

INITIALIZE 

sets  toggles,  reads  in 

a literal  block. 

handles  based  storage,  etc. 

6.3.3  STORAGE_MGT : 

STORAGE jyiGT  allocates  based  data. 

6.3.4  PRINT_DATE_AND_TIME: 

PRINT  DATE_AND_TIME  computes  date  and  prints  message 
followed  by  date. 


6.3.5  PRINT_TIME : 

PRINT_TIME  computes  time  and  prints  message  followed 
by  time. 
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Number 


Variable 


Use 


^ it 


6.3.6  NEW  HALMAT  BLOCK : 


3.6.1 

OPR 

3.6.2 

CURCBLK 

3.6.3 

CTR 

NEW_HALMAT_BLOCK  reads  in  a 
initializes. 

6.3.7  PREPARE_HALMAT ; 

3.7.1  SMRKjCTR 

3.7.2  LAST  SMRK 


The  HALMAT  block  in  core. 

Current  HALMAT  code  block. 

Points  to  current  HALMAT 
word . 

new  HALMAT  block  and 

Index  of  next  SMRK. 

Index  of  last  SMRK. 


PREPARE_HALMAT  extracts  inline  functions , transports  in- 
variant function  calls  and  shaping  functions  out  of  arrayed  text, 
and  moves  array  markers  (ADLP)  to  their  proper  places. 


6.3.8  MOVECODE : 


1 

f 

BIG 

3.8.1 

LOW 

Start  of  HALMAT  to  be 
moved  up. 

3.8.2 

HIGH 

Start  of  HALMAT  to  be 
moved  back. 

3.8.3 

BIG 

Number  of  words  moved. 

3.8.4 

ENTER_TAG 

TRUE  if  references  to  CSE's 
may  be  among  words  moved. 

MOVECODE  moves 

from  HIGH  to 

HIGH  + BIG  - 1 before 

LOW. 
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r 


: .«  :-. 


Number 


Variable 


Use 


6.3.9  OPTIMISE! 

3.9.1 

3.9.2 


STT# 

STILL  NODES 


HAL/S  statement  number. 


True  until  no  more  CSE's 
can  be  found  with  the 
statement  being  checked 
and  earlier  statements. 


3.9.3 


SEARCHABLE 


False  if  the  node  under 
examination  cannot  possibly 
match  previously  examined 
nodes. 


OPTIMISE  governs  the  flow  within  a HALt^T  block, 
building  tables,  checking  for  CSE's,  and  changing  HALMAT 
and  tables  accordingly. 


6.3.10  DECODEPOP: 
Class  0: 


TAG 


NUMOP 


CLASS 

0 


OPCODE 

SUBCODE2I 


8 


3 1 


I 


II  , 


Number 


Variable 


3.10.1 

3.10.2 

3.10.3 

3.10.4 

3.10.5 


TAG 

NUMOP 

CLASS 

OPCODE 

SUBCODE 


See  I Compiler  System  Spec . , 
Appendix  A,  and  above. 


DECODEPOP  decodes  HALMAT  operators.  (See  Compiler 
System  Spec.,  Appendix  A.) 


6.3.11  NEXTCODE: 

NEXTCODE  positions  CTR  to  the  next  HALMAT  operator, 

6.3.12  PUT_HALMAT_BLOCK : 

PUT_HALMAT_BLOCK  writes  the  changed  HALMAT  block 
for  Phase  II. 


6.3.13  PRINT SUMMARY : 


3.13.1 

CSE# 

Number  of  CSE's  processed. 

i 3.13.2 

; 

COMPLEX_MATCHES 

Number  of  CSE's  which 
contain  other  CSE's. 

3.13.3 

TRANSPOSE 

ELIMINATIONS 

Number  of  Matrix  Trans- 
poses eliminated. 

3.13.4 

LITERAL_FOLDS 

Number  of  literals  folded. 

3.13.5 

COMPARE_CALLS 

Number  of  calls  to  COMPARE 
procedure  in  CSE_FOUND. 

3.13.6 

SCANS 

Number  of  times  the  SCAN 
routine  is  used  in  COMPARE 
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Number 

Variable 

Use 

3.13.7 

MAXNODE 

Largest  size  of  NODE  list 
encountered. 

3.13.8 

MAX_CSE_TAB 

Largest  size  of  CSE  TAB 
list  encountered. 

3.13.9 

DIVISION 

ELIMINATIONS 

Number  of  Nodes  where  divide 
were  replaced  by  multiples. 

3.13.10 

EXTNjCSES 

Number  of  CSE's  which  are 
structure  nodes. 

3.13.11 

TSUBjCSES 

Number  of  CSE's  which  are 
structure  subscripts. 

PRINTSUMMARY 

prints  times  and 

above  results. 

6.3.14  X_BITS: 

X_BITS  returns  "code  optimizer  bits"  used  in  PREPARE 
HALMAT.  “ 

6.3.15  ERRORS: 

ERRORS  prints  error  message  when  error  detected  in  literal 
collapsing,  obtaining  storage  for  phase  1.5,  or  table  overflows. 

6.3.16  RELOCATE: 

RELOCATE  relocates  HALMAT  after  MOVECODE. 

6.3.17  DECODEPIP: 

DECODEPIP  decodes  HALMAT  operands  and  prints  them  if 
requested. 


6.3.18  OPOP : 

OPOP  returns  the  operator  part  of  a HALMAT  operator. 


6.3.19  VAC_OR_XPT : 

VAC_OR_XPT  returns  true  if  HALMAT  operand  is  a VAC  or 

XPT. 
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6 . 4 Stalking  The  Wild  CSE;  Table  Building 
General  Description 

Each  HALMAT  statement  is  checked  by  CHICKEN  OUT 
and  either  allowed,  skipped,  or  both  skipped  and" 

by  ZAP_TABLES.  If  the  statement  is 
allv-wed,  GROW_TREE  builds  the.  NODE  list.  In  the 
useless  matrix  transpose  operations  are 
eliminated,  additional  literals  are  folded,  and  unneeded 
divides  ^re  replaced  by  multiplies. 


Stalking  Procvdures  and  Data  Base 


Number 

Variable 

Use 

CHICKEN_OUT 

4.1.1 

i'lRST 

First  HALMAT  operator  to 
be  checked. 

4.1.2 

LAST 

Last  HALMAT  operator  to  be 
checked. 

4.1.3 

CLASSO 

For  class  0 operators; 

”0"  - Statement  skipped  and 
ZAP_TABLES  called. 

”1"  - Statement  skipped. 

' - Statement  processed. 


4.1.4 

IF_CTR 

Ini'x  of  first  CLASS  7 
(con  litional)  operator  in 
sente.  ee  or  0. 

4.1.5 

ASSIGN_CTR 

Index  o:‘  first  assignment  or 
return  operator  in  sentence 

0. 

4.1.6 

DO_LIST 

Stack  for  simple  DO's. 
Negative  if  KKIT  references 
corresponding  END. 

4.1.7 

DO_INX 

Index  for  DO  LISE. 

4.1.8 

DO_SIZE 

Maximum  simple  DO  nesting 
permitted. 

6-18 

intermetrics  incorporated  ■ 701  CONCORD  AVENUE  • CAMBRIDGE.  MASSACHUSETTS  02138  • '617)  661-1840 


i sT»fr‘i 


'*  > 


Number 

Variable 

Use 

4.1.9 

DEBUG 

Debug  toggle  set  by 
DEBUG  cards. 

4.1.10 

HALMAT_BLAB 

Prints  HALMAT  block 
optimization. 

after 

4.1.11 

STUB_FLAG 

Set  in  SYT  FLAGS  to 

indicate 

impossibilTty  of  leaf 
procedure . 


6.4.2  ZAP_TABLES 

ZAP  TABLES  deletes  all  tables  and  calls 


RELOCATE  HALMAT  if  CSE  has  been  found. 


6.4.3  RELOCATE_HALMAT : 

4-3.1  CSE  L INX 


Number  of  VAC  pointers 
to  be  relocated.  Number 
of  entries  in  CSE  LIST. 


4.3.2 


CSE  LIST 


Pointers  to  VAC ' s that 
may  need  relocating. 

On  second  pass  contains 
index  into  NODE  list  to 
entry  with  last  reference 
to  CSE  so  tag  can  be  re- 
moved . 


RELOCATE_HALMAT  relocates  certain  VAC ' s . 
CSE-LIST  HALMAT 


NODE 


NODE  2 


PTR 


The  NODE  pointer  replaces  the  HALMAT  pointer.  LAST 
keeps  track  of  last  VAC  referencing' the  CSE  in  question. 
#REFS  is  the  number  of  times  referenced. 
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6.4.4  DETAG : 

DETAG  removes  TAG  from  HALMAT  word. 

6.4.5  CSE_TAB_DUMP: 

CSE_TAB_DUMP  prints  CSE_TAB,  NODE  list,  and  CATALOG_PTR ' s 
(parallel  to  symbol  table) . 

6.4.6  FORMAT : 

FORMAT  places  numbers  into  N-strings. 

6.4.7  CSE_WORD_FORMAT : 

CSE_WORD_FORMAT  makes  NODE  list  words  somewhat 
readable . 


6.4.8  HEX : 

HEX  converts  integer  to  Hex  characters. 

6.4.9  EXIT_CHECK: 

EXIT_CHECK  negates  the  entry  in  DO_LIST  corresponding 
to  an  EXIT.  Used  to  prevent  CSE’s  across  simple  END'S 
referenced  by  an  EXIT, 


6.4.10  ASSIGNMENT; 

Number  Variable  Use 

4.10.1  PM_FLAGS  Mask  to  determine  if  variables 

can  be  equated  for  CSE  purposes 
when  they  appear  in  simple 
assignments. 
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ASSIGNMENT  checks  for  assignment  into  a name  variable. 

If  present,  ZAP  TABLES  is  called.  Otherwise,  if  a simple 
assignment  (A  = B) , the  variables  are  marked  as  identical 
using  CATALOG  PTR  and  VALIDITY.  If  not  a simple  assignment 
(A  = B + . . . ) then  receivers  have  VALIDITY  set  to  0 , preventing 
participation  in  further  CSE's. 


6.4.11  ST_CHECK: 

ST  CHECK  verifies  that  a structure  receiver  of  an 
assignment  contains  no  name  variables. 


6.4.12  NAME_CHECK : 

NAME  CHECK  verifies  that  a variable  is  not  a name 
variable. 


6.4.13  SYTP: 

SYTP  is  true  if  the  HALMAT  operand  in  question  is  a 
symbol  table  pointer. 


6.4.14  GROW_TRUE: 

Number 

4.14.1 

4.14.2 

4.14.3 


Variable 
MAX_NODE_SIZE 
STILL  NODES 


GET  INK 


Use 

Size  of  NODE  list. 

True  until  all  nodes 
processed  in  statement 
in  question. 

Points  to  operator  word 
in  NODE  list  of  next  NODE 
to  be  checked  for  CSE's. 


GROW  TREE  checks  that  enough  space  is  available  _ 
the  Nodes  of  the  statement  in  question.  An  END_OF_LIST 
is  placed  on  the  NODE  list  and  BUILD _NODE_LIST  is  called. 
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/ 


6.4.15  BUILD  NODE  LIST; 


NODE 


NODE  2 


CONTROL  TYPE  PTR 


OPTYPE 


4.15.1 


NODE 


Array  of  words  in  CSE 
word  format. 


4.15.2 


NODE  2 


Array  of  halfwords  pointers 
parallel  to  NODE. 


FORMATS 


L I T5RAL 


T M V p r I A T t 
TfPM  I N AL._VAC 
ASTER  I SK 

C.SZ 

AS/ 

OUTER  TERM  I NAL  VAC  , 

VAtUF_NO 
nu^VY_NionF 
SY  T 

END_CF  NODE 
VAC_F-’TR 

ENO  nF_HALNAT_TLQCK 
FND~DF  UST ; 

TYPE  . MASK  ,,  

CONTROL.  MASK 


FIXED 

FIX  e”D  ■ 
F I XED 
FIXED 
F I XFD 
F IX  FD 
FIXED., 

FIXED 
F i XED 
F IX  ED 
F I XED 
F IXED 
FIXED 
FIXED 


. -C 

INITI 

'rNifT 

IMTI 
iNif  i 
INIT^, 
IN  IT  1 
IMTI 

INITJL 
Tn  It  i 
INITI 
INitl 
IN  IT  I 
IMTI 
INITI 


CjNTRDL 
AL  I ” 2 

AL  ( ••  C 
AL  ( ••b 
Ai,("0 
AL(  "0 
AL  (“O 

AL  ( "0 

a'l(  "C 

AL  ( ”0 
AL  ( ”F 
AL(  "F 
>L  ("F 
AL  ( ”F 


TYPE  PTR 
E'  o6bo"jr 

‘6  obbb"  )V' 

2_  CO 0 01* ) t 
7 bbob«  it 
e . . Q0..QJ3  ",.i  t.. 
9 COCO”). 

C 0000‘»). 

e 0000”  )t 

*D  COCO"). 

1 _ QO_oq"U 

0 00  00"  )t' 

1 „OOCO")t. 

a bbbc")t 

F CC00")t 


LAST 

)ER*/ 


IN  SORT 


-Fix.  ED  INITIALING  F C000*<>» 
FIXFD  INITI AL<"F  C C000")t 


FOR  DSUF.  CCNTRCL  = SHL (ALPHA ,1 ) | EETA  */ 


ZAP 01 NTS 


TO  VAC  PTR 
WORD*/ 


PARITY  MASK 


riXLD  INITI  AL("FFF  F 0000"  »« 


for  TSUP  , 'CCNTRni  = SHL  { alpha' - 7t'iF"P  0ETA  */~ 
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Number 


Variable 


4.15.3 


4.15.4 


4.15.5 


LITERAL 


IMMEDIATE 


TERMINAL  VAC 


4.15.6 


OUTER_TERMINAL 

VAC 


4.15.7 


VALUE  NO 


4.15.8 


4.15.9 


DUMMY  NODE 


4.15.10 


END  OF  NODE 


4.15.11 


VAC  PTR 


Literal  operand.  PTR  = 0. 

NODE2  is  a pointer  to  the 
literal  table.  CONTROL  = 

3 if  odd  parity. 

Immediate  operand.  PTR  = 
value.  NODE2  =0. 

CONTROL  = 1 if  odd  parity. 

VAC  or  XPT  operand  which  points 
to  different  node.  PTR 
is  a pointer  to  the  VAC  PTR 
word  in  the  NODE  list  o? 
that  node.  NODE 2 is  a 
pointer  to  the  END_OF_NODE 
word  of  the  NODE  containing 
the  TERMINAL_VAC . CONTROL  = 

1 if  odd  parity. 

VAC  XPT  operand  which  points 
to  a CSE.  PTR  is  same 
as  for  TERMINAL_VAC. 

NODE2  is  a pointer  into 
CSE_TAB  for  the  CSE 
pointed  to.  CONTROL  = 1 
if  odd  parity. 

Value  number.  PTR  is 
a pointer  into  CSE_TAB. 

NODE2  is  the  WIPEOUT#. 

CONTROL  = 1 if  odd  parity. 


You  guessed  it. 

1 if  odd  parity. 


CONTROL 


Symbol  table  pointer. 

Only  present  between 
GROW  TREE  and  GET_NODE. 

PTR  Ts  symbol  table  pointer. 
CONTROL  = 1 if  odd  parity. 

No  more  operands  for  this 
node.  NODE2  points  to 
op type  of  Node  in  NODE 
list. 

PTR  is  index  of  HALMAT 
operator  of  Node  in  question 
NODE2,  if  non-zero,  is  a 
pointer  into  the  CSEJTAB 
(in  this  case^  the  Node  is 
a CSE) . 
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/817.T88.1..tAiin. 


Number 


Variable 


Use 


4.15.12 

END_OF_HALMAT_BLOCK 

Unused. 

4.15.13 

END_OF_LIST 

Last  entry  in  NODE 
list  for  the  state- 
ment in  question. 

4.15.14 

OPTYPE 

Internal  operator 
(set  by  CLASSIFY) 

derived  from  HALMAT 
operator . 

4.15.15 

N INX 

Indexes  NODE  and  NODE2. 

OPTYPE  Formats 


P 

HALMAT  OP 

4 

12 

lip  II 

m 

4 

4 

8 

Normal  format.  Commuta- 
tive operators  always 
become  the  even  paritied 
operator,  e.g.  SSUB  be- 
comes SADD  with  PARITY  = 

1.  p is  the  precision 

for  conversion  operators  and 

zero  otherwise. 

Built-in  functions.  m 
is  the  index  of  the 
function. 


6-24 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


STRUCTURE  OF  NODE  LIST 


NODE 


NODE  2 


END  OF  LIST 


0 


Increasing 
N INX  I 


t 

NODE: 


VAC_PTR 

END_OF_NODE 

OPERANDS : 

VALUE_NO: 

(PTR  TO  CSE_TAB) 

OUTER  TERMINAL  VAC 

(PTR  TO  "VAC_PTR"  OF 
NODE) 

LITERAL 

TERMINAL_VAC 

(PTR  TO  ”VAC_PTR''  OF 
NODE) 

SYT(PTR  TO  SYMBOL  TABLE) 
OPTYPE 


NODE: 


0 OR  CSE_TAB  PTR 
PTR  TO  OPTYPE 


WpEOUT# 

CSE  TAB  PTR 


PTR  TO  LIT  TABLE 
PTR  TO  END  OF  NODE 


0 

0 OR  PTR  TO  "END_OF__NODE"  OF  NODE 
CONTAINING  TERMINAL_VAC 
REFERENCING  NODE . IF  TOPTAG 
THEN  UNRELIABLE. 


END  OF  LIST 


0 


MORE  NODES: 


Example : 

F - A - B C; 

produces  HALMAT: 

0.  SSPR 

B(SYT) 

C(SYT) 

3 . SSUB 

A(SYT) 

O(VAC) 

’tir  4.  SASN 

3 (VAC) 

F(SYT) 

6-25 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-18 


After  BUILD_NODE_LIST: 
NODE 

Control  Type 
1.  END  OF  LIST 


Ptr. 


NODE  2 


2. 

VAC_PTR 

3 

0 > 

\ ' ' 

3. 

END_OF_NODE 

0 

6 j 

. 

4. 

1 TERMINAL_ 

_VAC  8 

3 ' 

^ Node 

5. 

0 SYT 

A 

0 

6. 

0 0 

SADD 

0 J 

7 . VAC_PTR  0 

8 . END_OF_NODE  0 

9.  0 SYT  B 

10.  0 SYT  C 

11.  0 0 SSPR 


0 

11 

0 

0 

3 


Node 


ot^t?oT)UCIBIL1TY  of  THl 
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Number 


Variable 


Use 


4.15.16 

4.15.17 

4.15.18 

4.15.19 

4.15.20 

4.15.21 

4.15.22 

4.15.23 

4.15.24 

4.15.25 

4.15.26 


add  Stack  of  operators  to  be 

added  to  the  present  Node. 
Indexed  by  A_INX. 

A_PARITY  Stack  of  parities  for 

corresponding  operator. 

Odd  parities  for  subtracts 
and  divides.  Indexed  by 
A INX . 


A INX 


Index  for  ADD  and  A PARITY. 


DIFF_NODE  Stack  of  Nodes  in  the  same 
statement  but  different 
than  the  one  currently  being 
processed.  Indexed  by  D_N_INX. 

DIFF_PTR  Used  to  get  TERNINAL_VAC's 

pointing  to  VAC_PTR  of  appro- 
priate Node.  Indexed  by 
D N INX. 


D_N_INX  Index  for  DIFF_NQDE  and 

DIFF_PTR. 

TRANSPARENT  HALMAT  operator  which  produces 
no  Node  but  whose  operands 
may  produce  Nodes  cause 
TRANSPARENT  = TRUE. 

BFNC_OK  False  for  Built-in  functions 

which  produce  no  Nodes  and 
thus  partiticpate  in  no 
CSE's. 

EON_PTR  Points  to  END_OF_NODE  of 

present  NODE. 

REF_PTR  Pointer  to  TERMINAL_VAC 

referring  to  the  present 
NODE , 

type  HALMAT  operand  type. 
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CAMBRIDGE.  MASSACHUSETTS  OPiafl  . ifi^7\  RA-I  .iQitn 


Number 


T 


Number 

4.15.27 

4.15.28 

4.15.29 


Variable 

PRTYEXPN 

OP 

DIVIDE# 


Use 

Parity  of  the  operand  in 
question. 

HALMAT  operator  (of  even 
parity)  for  present  Node. 

Number  of  divides  in  this 
Node . 


Mnnp  the  Nodes  from  a statement  to  the 

NODE  list.  Constants  are  folded  and  unneeded  divisions 
eliminated. 

6.4.16  LIT_GONVERSION: 

^^'^—^ONVERSION  replaces  a VAC  referencing  a harmless 
literal  conversion  by  the  literal  itself. 


6.4.17  CONVERSION_TYPE: 

CONVERSION  TYPE 
if  it  is  harmless. 

checks  a literal  conversion  to  see 

6.4.18  CLASSIFY: 

Number 

Variable 

Use 

4.18.1 

SET_P 

True  if  PARITY  is  to  be 
set. 

4.18.2 

FIX_SPECIALS 

True  if  unneeded  matrix 
transposes  are  to  be 
eliminated. 

4.18.3 

PARITY 

Odd  if  subtraction  or 
division. 

creates  the  OPTYPE  from  a HALMAT  operator,  sets 
ARITY,  and  eliminates  unneeded  matrix  transposes. 
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.Jb 


6.4.19  CHECK_TRANSPOSE : 

CHECK_TRANSPOSE  changes  V to  V M and  V to 

MV. 

6.4.20  PRINT_SENTENCE (PTR) : 

PRINT_SENTENCE  formats  and  prints  HALMAT  from  PTR 
to  the  next  SMRK. 

6.4.21  SET  NONCOMMUTATIVE : 

Variable  use 

BIT_TYPE  True  if  bit  type. 

NONCOMMUTATIVE  True  if  "Noncommutative" , 

REVERSE_OP  Odd  paritied  operator 
corresponding  to  OP. 

SET_NONCOMMUTATIVE  returns  NONCOMMUTATIVE  and  sets 
BIT_TYPE,  TRANSPARENT,  and  REVERSE_OP. 

6.4.22  NO_OPERANDS; 

NO_OPERANDS  returns  the  number  of  HALMAT  operands 
following  an  operator. 

6.4.23  PTR_TO_VAC;  ' 

PTR_TO_VAC  formats  a PTR  TO  VAC  word  for  the  NODE 
list.  — “ 

6.4.24  FORM_VAC: 

FORM_VAC  formats  a TERMINAL  VAC  word  for  the  NODE 
list.  ~ 
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Number 

4.21.1 

4.21.2 

4.21.3 


6.4.25  FORM  TERM: 


FORM  TERM  formats  terminal  word  for  NODE  list. 


6.4.26  TERMINAL: 
Number 
4.26.1 


Variable 


TAG 


Use 

If  TRUE,  considers  a VAC  or  XPT 
pointing  to  a different 
operator  as  terminal. 


TERMINAL  returns  true  if  the  operand  in  question  is 
an  outer  node  for  the  tree  decomposition  of  the  statement 
in  question. 


6.4.27  BUMP_CSE: 

BUMPjCSE  puts  a literal  on  the  CSE  list  for 
literal  folding. 


6.4.28  ELIMINATE_DIVIDES: 

ELIMINATE_DIVIDES  eliminates  all  but  one  divide 
from  a Node. 


6.4.29  COLLAPSE_LITERALS : 

COLLAPSE_LITERALS  folds  literals  and  modifies 
HALMAT  and  NODE  list  accordingly. 


6.4.30  COMBINED_LITERALS: 

Number  Variable 


4.30.1 


DW 


Use 

Common  data  word  for 
communication  with  XPL 
monitor. 


COMBINED_LITERALS  does  lit  arithmetic  by  monitor 
calls. 
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6.4.31  PILL_DW: 

FILL  DW  fills  DW  with  literal. 


6.4.32  LIT_ARITHMETIC : 

LIT_ARITHMETIC  performs  monitor  call  to  do  literal 
arithmetic. 


6.4.33  SAVE_LITERAL : 

SAVE_LITERAL  creates  a new  literal  table  entry 
and  returns  pointer  to  it. 


6.4.34  GET_LITERAL 
Number 

4.35.1 

4.35.2 

4.35.3 


Variable  use 

LITORG  Smallest  index  of  literal 

in  core. 

LITLIM  Largest  index  of  literal 

in  core. 

CURLBLK  Literal  block  in  core. 


GET_LITERAL  guarantees  a literal  in  core 


6.4.35  MESSAGE_F0RP4AT: 

MESSAGE_FORMAT  formats  a NODE  LITERAL  word  for 
diagnostics.  ' 

6.4.36  VALIDITY; 

VALIDITY  returns  the  validity  bit  of  the  symbol  in 
question. 

6.4.37  SET_VALIDITY; 

SET_VALIDITY  sets  the  validity  bit  of  the  symbol  in 
question. 

'^•38.1  VALXDITY_ARRAY  Index  i = 1 if  symbol 

is  eligible  for  a CSE. 
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6.4.38  ASSIGN_TYPE: 

ASSIGN_TYPE  returns  true  if  operator  is  regular  or 
structure  assignment. 

6.4.39  TERM_CHECK : 

TERMjCHECK  either  calls  ZAP_TABLES  for  assignment 
to  major  or  minor  structure  or  else  sets  validity  false 
for  a structure  node  receiver. 


^ I { 

y . 
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6 . 5 Recognition 


General  Description 

GET_NODE  gets  a node  and,  if  a CSE  can  possibly 
exist  with  a previously  processed  Node,  CSE_POUND 
searches  for  CSE's.  GROW_TREE  has  produced  Nodes  such 
that  a backward  scan  of  the  NODE  list  by  GET_NODE  examines 
Nodes  in  the  proper  order. 


Recognition  Procedures  and  Data  Base 


Number 

Variable 

Use 

GET_NODE : 

5.1.1 

SEARCH 

Stack  of  NODE  list  operands 
which  might  be  part  of  a 
CSE.  Indexed  by  SEARCH_INX 

5.1.2 

SEARCH2 

Same  as  search,  except 
N0DE2  entries  go  here. 

5.1.3 

SEARCH_INX 

Index  for  SEARCH  and 
SEARCH 2 . 

5.1.4 

GET_INX 

Pointer  to  NODE  list 
rised  by  GET  NODE. 

5.1.5 

NODE_BEGINNXNG 

Points  to  OPTYPE  of  Node 
in  NODE  list. 

5.1.6 

SYT_POINT 

Symbol  table  pointer. 

5.1,7 

CATALOG_PTR 

Array  parallel  to  symbol 
table  of  VALUE_NO's  with 
pointers  to  GSE_TAB. 

Example: 

F = A + B; 

A'  >■ 

•!* 
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Symbol  Table 


CATALOG  PTR 


VALIDITY 


1 

0 


p _ _ 

From  the  above  values,  we  may  deduce: 

1.  The  VALUE_NO  for  A is  6. 

2.  The  VALUE_NO  for  B is  11. 

3.  B no  longer  has  a valid  VALUE_NO  since  it  must 
have  recently  been  the  receiver  in  an  assignment. 


4.  No  further  searching  for  CSE’s  need  be  made 

since  we  are  left  with  only  one  valid  operand. 


Number 

Variable 

Use 

5.1.9 

NODE_SIZE 

Number  of  oprands  in 
SEARCH  list  for  a Node. 

5.1.10 

P RE  S ENT_NODE_PTR 

Points  to  VAC  PTR  word  of 
Node  presently  being 
examined  by  GET  NODE. 

GET_NODE  takes  a Node  and  places  all  operands  which 
have  been  encountered  before  this  Node  and  after  the  last 
assignment  or  ZAP_TABLES  into  the  SEARCH  list.  SYT  words 
are  replaced  by  VALUE_NO's  in  the  process.  The  Node  is 
sorted  if  not  NONCOMMUTATIVE.  If  appropriate,  the  SEARCH 
list  is  sorted. 

6.5.2  TYPE : 

TYPE  returns  type  of  a word  in  NODE  list  format. 
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Type  Ptr 

A B 6 

B B 11 


^ ' 

■ 


»?- 


6.5.3  CATALOG : 

Number  Variable 


Use 


5.3.1 


NEW  OP 


True  if  CSE_TAB  entries 
already  exist  for  the  VALUE 
NO  in  question,  but  not  one" 
for  the  present  OPTYPE. 
False  if  no  CSE  TAB  entry 
at  all. 


5.3.2 


CSE  TAB 


Doubly  linked  array  of 
pointers  into  NODE  list. 


CSE  TAB  FORMATS 


CATALOG  ENTRY; 


#1 

#2 

#3 


--OT?Yra  =SE_TAB  FOR  THIS  OPCODE 

n™  Next  catalog  entry  for  different  optype 

BUT  SAME  VALUE  NO,  ETC.  0 FOR  LAST  CATATOr 

entry  for  this-va£ue_n6,  etc?  catalog 


NODE  ENTRY; 


#1 

#2 


" PTR  TO  OPTYPE  OF  A NODE 

— PTR  TO  NEXT  NODE  ENTRY  IN  CSE  TAB  FOR  THIS 
OPTYPE  AND  VALUE_NO,  ETC  . 0 FOR  LAOT  EOTRY, 


CATALOG  sets  up  a catalog  entry  and  the  first  nod^ 
in  Se  VALUE_N0  and  a particular  OPTYPE 


^ERMETBICS  'NO°BPORA^7^_CONCORO  AVSNUE  ; cjlRIDG£.MAgSACHUSETTS  0P,3a  . ,617. 


jf 


6.5.4  CATALOG_ENTRY : 

CATALOG_ENTRY  adds  a node  entry  to  CSE_TAB. 

6.5.5  GET_FREE_SPACE : 

Number  Variable  Use 

5.5.1  PREE_BLOCK_BEGIN  Beginning  of  unused 

block. 

5.5.2  FREE_SPACE  Amount  of  space  in 

block. 

GET_FREE_SPACE  gets  an  unused  block  in  CSE  TAB. 


CATALOG^ 

_SRCH : 

Number 

Variable 

Use 

5.6.1 

CSE_INX 

See  below. 

CATALOG_SRCH  checks  catalog  entries  in  the  CSE  TAB 
for  a particular  VALUEJNO  or  OUTER_TERMINAL_VAC . “ 

If  a matching  OPTYPE  is  found,  CSE_INX  is  set  to  the 
first  mode  entry  in  CSE_TAB  for  that  OPTYPE.  A pointer 
to  the  appropriate  catalog  entry  in  CSE_TAB  is  returned. 

Otherwise , CSE_INX  is  set  to  the  last  catalog  entry 
present  for  the  given  VALUE_NO,  etc.,  and  0 is  returned. 

6.5.7  SORTER: 

SORTER  sorts  the  NODE  list. 

6.5.8  SEARCH_SORTER : 

SEARCH  SORTER  sorts  the  SEARCH  list. 
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6.5.9  CSE_MATCH  F0U^7D : 


Number 

5.9.1 


Variable 

reverse 


Use 

True  if  reverse  CSE,  e.g. 
F = (A  - B)  (B  - A)  ; 


CSE_MATCH  POUND  calls  COMPARE  ^ 

does  a reverse"compare . ^ ^ appropriate. 


6.5.10  SETUP_REVERSE_COMPARE : 
Number  Variable 

^ ^ ^ SEARCH  REV 


5.10.2 


Use 

Same  as  SEARCH  but  with 
panties  changed. 


SEARCH2_REV  Same  as  SEARCH2 . 


SEARCH  Into 

_ V ana  bEARCH2_REV  changing  parities  and  sorting. 


6.5.11  CONTROL: 


CONTROL 
list  format. 

returns  control 

field  of  a word  in  Node 

6.5.12  COMPARE 

: 

Number 

Variable 

Use 

5.12.1 

PREVIOUS  NODE  Pointq  *. 

OPERAND  “ ~ . fi^st  operand 

i:.KaiNu  of  previous  Node. 

5.12.2 

CSE 

operands  from 
by  CSE_ 

5.12.3 

CSE2 

List  of  matched  operands 

from  SEARCH2  list.  Indexed 
by  CSE  FOUND  INX.  ^exed 

intermetrics  incorporated  . 701  CONCORD  AVENUE 

# 
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Nuinber 


Variable 


Use 


5.12.4 

5.12.5 


5.12.6 

5.12.7 


CSE_FOUND_INX  Indexes  CSE,  CSE2. 

PREVIOUS_NODE  Pointer  to  OPTYPE  of 

previous  Node. 

PRESENT_HALMAT  Points  to  HALMAT  for 

present  Node. 


PREVI0US_N0DE_  Points  to  VAC_PTR  word 
PTR  of  previous  match's  Node. 


5.12.8  PREVIOUS_HALMAT  Points  to  HALMAT  for 

previous  match. 


COMPARE  checks  if  a Node  has  a CSE  with  a previous 

Node . 


6.5.13  COMPARE_LITERALS : 

COMPARE_LITERALS  compares  2 literals,  returning 
true  if  equal. 
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6,6  Bringing  Home  the  Bacon;  HALMAT  Rearranging 


General  Description 

After  a CSE  is  found,  the  HALMAT  is  rearranged  sc 
that  the  CSE  is  in  fact  computed  in  both  the  previous 
and  present  Node.  The  previous  Node  is  tagged.  All 
references  are  tagged  and  their  HALMAT  VAC  pointers 
replaced  by  pointers  into  the  NODE  list,  to  the  appropriate 
VAC_PTR.  Such  relocation  is  necessary  since  the  CSE  may 
be  moved  due  to  a later  CSE. 

The  second  (or  present)  computation  of  the  CSE  is  now  re- 
placed by  NOP's  (except  for  the  case  of  TSUBS  where  its  CSE 
TAG  is  set) . In  some  cases,  the  negative  or  reciprocal  of  the 
CSE  is  called  for,  and  the  HALMAT  for  the  present  node  is  accordingly 
modified. 

Bacon  Procedures  and  Data  Base 

Number  Variable  Use 


6.6.1  SETUP  REARRANGE : 


6.1.1 

PNPARITYO# 

Number  of  parity  0 
in  previous  Node. 

operands 

6.1.2 

PNPARITYl# 

Number  of  parity  1 
in  previous  Node. 

operands 

6.1.3 

FNPARITYO# 

Number  of  parity  0 
in  forward  Node. 

operands 

6.1.4 

FNPARITYl# 

Number  of  parity  1 
in  forward  Node. 

operands 

6.1.5 

M PARITYO# 

Number  of  parity  0 
in  match  (CSE) . 

operands 

6,1.6 

M PARITYl# 

Number  of  parity  1 
in  match  (CSE) . 

operands 

6.1.7 

NEW_MODE_PTR 

Points  to  VAC_PTR 
NODE  list  for  the 

word  in 
new  CSE. 

6.1.8 

TOTAL_MATCH_PRES 

TRUE  if  CSE  = present  Node. 
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SETUP_REARRANGE  sets  the  above  variables  needed  by 
REARRANGE  HALMAT. 


Number 

Variable 

Use 

REARRANGE_ 

_HALMAT ; 

6.2.1 

FORWARD  UNMATCHED 
PLUS 

TRUE  if  there  is  a 
parity  0 operand  in  the 
present  (or  forward) 
Node  which  is  not  in 
-the  CSE. 

6.2.2 

FORWARD  MATCHED 
MINUS 

TRUE  if  forward  Node  has 
parity  1 operand  in  the 
CSE. 

6.2.3 

FORWARD  MATCHED 
PLUS 

TRUE  if  forward  Node  has 
parity  0 operand  in  the 
CSE. 

6.2.4 

FORWARD 

TRUE  if  forward  (=  present) 
Node  being  processed. 

6.2,5 

TOPTAG 

TRUE  if  previous  Node  was 
already  a CSE. 

6,2.6 

TOT AL_MATC  H_PREV 

TRUE  if  previous  Node  = CSE 

6.2.7 

MULTIPLE  MATCH 

TOPTAG  & TOTAL_MATCH  PREV. 

6.2.8 

HALMAT_PTR 

Last  HALMAT  operator  in 
CSE. 

6.2.9 

HALMAT_NODE  START 

First  HALMAT  operator  in 
the  Node. 

6.2.10 

ALTER_HALMAT 

True  unless  TSUB  CSE  where 

HALMAT  is  not  NOP'ed. 


REARRANGEJHALMAT  rearranges,  flags,  NOP' s,  etc.,  HALMAT 
to  create  a CSE  with  its  references. 


EEPRODUCIBILITY  Of 
ORIGINAL  PACtL  IS  POOl 
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6.6.3  SET_HALMAT_FLAG : 

SET_HALMAT  FLAG  sets  CSE  TAG  in  HALMAT. 


Number 

Variable 

Use 

COLLECT_ 

_MATCHES : 

6.4.1 

ELIMINATE_DIVIDES 

= 1 unless  COLLECT  MATCHES 
called  to  eliminate  unneeded 
divisions. 

6,4.2 

LAST_INX 

Pointer  to  the  last  HALMAT 
operator  written  during 
processing  of  this  Node. 

6.4.3 

H_INX 

Pointer  to  HALMAT  to  keep 
track  of  scan  of  Node. 

6.4.4 

INVERSE 

TRUE  if  generated  HALMAT 
operators  are  to  be  of 
odd  parity . 

6.4.5 

PO 

Number  of  even  parity 
operands  not  in  CSE. 

6.4.6 

PI 

Number  of  odd  parity 
operands  not  in  CSE. 

6.4.7 

POINTl 

Pointer  to  a partial 
computation  of  a Node. 

COLLECT_MATCHES  groups  HALMAT  for  the  CSE  computation 
at  the  beginning  of  the  Node  in  question. 


6.6.5  FLAG_NODE ; 

6.5.1  FL  :^G 


Array  of  flags  parallel 
to  the  HALMAT. 


I 


i 


111 


L 


Bit  2 
>— Bit  1 
Bit  0 
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Bit  0 is  TRUE  if  corresponding  HALMAT  is  an  operator 
xn  the  Node  in  question. 


Bit  1 is  TRUE  if  corresponding  HALMAT  is  an  operand 
in  the  CSE  in  question. 


Bit  2 is  the  parity  of  the  corresponding  HALMAT  operator 
or  operand  in  the  Node. 


FLAG_NODE  sets  bits  0 and  2 in  the  FLAG  array  for  the 
Node  in  question.  ^ 


6.6.6  HALMAT  FLAG : 


HALMAT_FLAG  returns  the  CSE  tag  for  the  HALMAT 
operator  or  operand  in  question. 


6.6.7  SET  FLAG: 


SET_FLAG  sets  a bit  in  a given  FLAG  word. 


6.6.8  FLAG  MATCHES: 


Node. 


FLAG_MATCHES  sets  bit  1 in  the  FLAG  array  for  a 


6.6.9  FLAG  V N ; 


FLAG_V_N  flags  bit  1 in  the  FLAG  array  of  a Node 
corresponding  to  a given  VALUE  NO. 


6.6.10  FLAG  VAC  OR  LIT: 


FLAG_VAC_OR_LIT  flags  bit  1 in  the  FLAG  array  of 

a Node  corresponding  to  a given  OUTER  TERMINAL  VAC  or 
LITERAL.  — _ 
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Number 

Variable 

Use 

; "ii 

11  SET_ 

_WORDS : 

; ,5' 

■ 

6.11,1 

OPPARITY 

Parity  of  HALMAT  operators 
generated. 

-■i 

"■ 

■ i) 

If; 

6.11.2 

MATCHED  OPS 

TRUE  if  non  VAC  operands 
are  to  be  in  the  CSE. 

■ 

6.11.3 

TERMINAL# 

Number  of  non  VAC  operands. 

■ ' 

6.11.4 

TAG 

I'^ue  if  CSE  tag  to  be  set 
on  operator . 

6.11.5 

SPECIAL 

Special  case. 

of  desired°chLaJte^istLst^^^  operator  with  two  operands 


6.6.12  NEXT  FLAG: 


speoifS-FMG  ''ith  the 


6.6.13  FORM_OPE  RATOR : 

FORM_OPERATOR  forms  a HALMAT  operator  word. 

6.6.14  FORCE  MATCH: 


s.’i-5£:r— ““ 


6.6.15  SWITCH: 


FLACc;^^^?S”  interchanges  two  HALMAT  operands  and  their 
below  Its  pointer,  HALMAT  is  shifted  by  MOVE°LImL”'°''®'^ 
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6.6.16  ENTER: 

relocaS  latir!  =SE_LIST  for  possible 


6.6.17  MOVE_LIMB: 

the  NODrTlsfoS?rSspSSdin|l??“®"  '^-l°-ates 

6.6.18  FORCE_TERMINAL : 

FORCE  TERMINAL  forces  a terminal  HALMAT  operand 
of  correct  parity  to  the  given  spot. 

6.6.19  PUSH  OPERAND: 


PUSH_OPERAND  forces  a terminal  operand  forward 
into  a harmless  slot. 


6.6.20  SET_VAC_REF : 

SET_VAC_REF  creates  a HALMAT  VAC  or  XPT  operand. 

6.6.21  PUT_NOP: 

PUT_NOP  replaces  the  CSE  computation  with  NOP's. 

6.6.22  REFERENCE: 

operator!’*™'^^  referencing  a given  HALMAT 

6.6.23  BOTTOM : 

limh  finds  where  a limb  joins  the  tree  so  the 

limb  can  be  moved. 


I 
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■H 


■4 


ft'ir 


Number 


Variable 


4*^ 


Use 


6.6.24  GET_LIT_ONE : 

6*24.1  PREVIOUS_CALL  TRUE  if  literal  1 already 

generated. 

GET_LIT_ONE  generates  a literal  1 and  returns  its 
pointer. 


I 1 


-tlr 
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6 . 7 Table  Updating 


General  Description 

After  finding  a CSE  and  rearranging  HALMAT,  the 
NODE  list  and  CSE_TAB  are  modified.  A new  Node  for 
the  CSE  is  created  if  needed.  CSE  operands  are  re- 
moved from  the  previous  and  present  Node  if  needed. 
Resorting  is  sometimes  required. 

When  no  CSE  is  found,  TABLE_NODE  modifies  CSE_TAB 
so  that  later  Nodes  can  match  with  the  present  Node. 


6.7.1 


Number 

Variable 

Use 

STRIP 

_NODES : 

7.1.1 

7.1.2 

NEW_NODE_OP 

Pointer  to  NODE  list 
operator  word  of  CSE. 

PREV  TREE  TOP 

~~~^rRUR--rf_^DJievJLou^‘=5-TJode— =^CSE 
and  it  has  no  predecessor 
Node . 

7.1.3 

PREV_REF 

Pointer  to  NODE  operator 
which  has  operand  referencing 
CSE,  if  CSE  = previous 
Node . 

7.1.4 

PREV_REF_OF  VAC 

Pointer  to  Node  operand 
referencing  CSE,  if  CSE  = 
previous  Node. 

7.1.5 

PRES_REF_OF_VAC 

Pointer  to  NODE  operand 
referencing  CSE  if  CSE  = 
present  Node. 

7.1.6 

COMPLEX_MATCH 

TRUE  if  CSE  contains 
OUTER  TERMINAL  VAC. 

STRIP_NODES  removes  CSE  operands  from  Nodes  and 
creates  a Node  for  the  CSE  if  necessary.  Sorting, 
parity  changing,  and  CSE_TAB  modification  are  done 
where  appropriate. 
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n.p' 


6.7.2  SET_0_T_V : 

SET_0__T_V  finds  the  TERMINAL_VAC  referencing  a 
Node  and  returns  its  index  in  the  NODE  list.  Where 
appropriate,  it  is  set  to  an  OUTER  TERMINAL  VAC. 


6.7.3  TABLE  NODE : 


TABLE_NODE  puts  references  into  the  CSE  TAB  for 
NODE  operands  not  in  a CSE.  “ 


6.7.4  CATALOG  VAC: 


CATALOG_VAC  sets  up  initial  entries  for  OUTER  TERMINAL 
VAC'S  in  CSE  TAB.  - 


6.7.5  REVERSE  PARITY 


REVERSE_PARITY  switches  parity  of  a NODE  list  operand. 
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6 . 8 HAL/S  Option  Specifications  and  Compiler  Directives 


Following  are  toggles  recognized  by  the  OPTIMIZER. 
HAL/S  Option  Specifications 


XI 

Optimizer  off. 

X3 

WATCH . 

HALMAT 

changes 

are  printed. 

X5 

TRACE. 

bases. 

Prints 

program 

flow  and  data 

X6 

STATISTICS.  Prints  timing  and  other 
statistics . 

Compiler  Directives 

By  inserting  a statement: 

DEBUG  H(#) 

starting  in  column  1,  the  following  actions  occur  for 
different  values  of  #: 


DEBUG 

H(l) 

Optimizer  off  until  next  such  state- 
ment encountered.  No  CSE's  recognized 
across  the  pair  of  DEBUG' s. 

DEBUG 

H(2) 

Same  as  above,  but  CSE's  may  be  recognized 
across  the  pair. 

DEBUG 

H(3) 

WATCH  status  changed. 

DEBUG 

H(5) 

TRACE  status  changed. 

DEBUG 

H(6) 

HALMAT  REQUESTED  status  changed. 

DEBUG 

H(7) 

HALMAT  BLAB  status  changed. 

DEBUG 

H(64) 

Set  VALIDITY  TRACE  status  changed. 
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^ Alphabetical  Index  of  Names  Used  in  Phase  1.5 
Example ; 


IV  15.7  A- PARITY 

\ 

Data  or  Procedure 
Name 

Where  description  of  this  Procedure/DATUM  and 
associated  Procedures/Data  can  be  found.  


By  grouping  like  data  and  procedures  in  the  previous 
sections,  it  is  hoped  that  the  time  needed  to  under- 
stand procedures  in  the  Optimizer  will  be  greatly 
reduced.  ^ 


CSE  recognition  is  contained 
Common  Subexpression  Recognition”,  IR  #127-2. 
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4.15.18 

A_INX 

4.15.17 

A_PARITY 

4.15.16 

ADD 

6.2.10 

ALTER_HALMAT 

4.1.5 

ASSIGN  CTR 

4.39 

ASSIGN_TYPE 

label 

4.10 

ASSIGNMENT 

label 

4.15.23 

BFNC_OK 

4.21.1 

BIT  TYPE 

4.23 

BOTTOM. 

label 

4.27 

BUMP_CSE 

label 

5.3 

CATALOG 

label 

5.3.1 

NEW_OP 

5,4 

GATALOG_ENTRY 

label 

5.6 

CATALOG__SRCH 

label 

7.4 

CATALOG_VAC 

label 

4.1 

CHICKEN_OUT 

label 

9.1.1 

FIRST 

9 ,1 . 2 ■ 

~ LAST 

2.10.3 

CLASS 

4.18 

CLASSIFY 

label 

4.18.1 

SET_P 

4.18.2 

FIX_SPECTALS 

3.1.1 

CLOCK 

4.29 

COLLAP  S E_L I TE RALS 

label 

6.4 

COLLECT_MATGHES 

label 

6.4.1 

ELIMINATEJDIVIDES 

4.30 

COMBINED_LITLRA7uS 

label 

3.13.5 

COMPAREjCALLS 

5.13 

COMPARE  LITERALS 

label 

7.1.6 

COMPLEX  MATCH 

3.13.2 

COMPLEX_MATCHES 

5.11 

CONTROL 

label 

4.17 

GONVERSION_TYPE 

label 

EE?KODIICIETrjr\"  OF  Ti-r. 


fil'iilii  sV 
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5.12.2  CSE 

5.12.4  CSE_FOUND_INX 

5.6.1  CSE_INX 

4.3.1  CSE_L_INX 

4.3.2  CSE_LIST 

5 . 9 CSE_MATCH_POUND  label 

5.3.2  CSE_TAB 

4 . 5 CSE_TAB_DUMP  label 

4 . 7 CSE_WORD_FORMAT 

3.13.1  CSE# 

5.12.3  CSE2 

3.6.3  CTR 

3.6.2  CURCBLK 

4.35.3  CURLBLK 

4.15.21  D_N_INX 

4.1.9  DEBUG 

3.10  DECODEPOP  label 

3.17  DECODEPIP  label 

4 . 4 DETAG 

4.15.19  DIFF_NODE 

4.15.20  DIFF_PTR 

3.13.9  DIVISION_ELIMINATIONS 

4.1.7  DO_INX 

4.1.6  DO_LIST 

4.1.8  DOSIZE 

4.15.8  DUMMY_NODE 

4.30.1  DW 

4.28  ELIMINATE_DIVIDES  label 

4,15.12  END_OF_HALMAT_BLOCK 

4.15*13  END_OF_LIST 

4.15.10  END_OF_NODE 

6.16  ENTER  label 

4.15.24  EON  PTR 
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3.15 

ERRORS 

label 

4.9 

EXIT_CHECK 

label 

3.13.10 

EXTN_CSES 

4.32 

FILL_DW 

label 

6.5.1 

FLAG 

6.8 

FLAG_MATCHES 

label 

6.5 

FLAG_NODE 

label 

6.9 

FLAG_V_N 

label 

6.10 

FLAG_VAC_OR_LIT 

label 

6.1.3 

FNPARITYO# 

6.1.4 

FNPARITYl# 

6.14 

FORCE_MATCH 

label 

6.18 

FORCE_TERMINAL 

label 

6.13 

FORM_OPERATOR 

label 

6.25 

FORM_TERM 

label 

6.24 

FORM_VAC 

label 

3.6 

FORMAT 

6.2.4 

FORWARD 

5.5.1 

FREE_BLOCK_BEGIN 

5.5.2 

FREE_SPACE 

5.5 

GET_FREE_SPACE 

label 

4.14.3 

GET_INX 

6.24 

GET_LIT_ONE 

label 

4.35 

GET_LITERAL 

label 

5.1 

GET_NODE 

label 

4.14 

GROW_TREE 

label 

6.4.3 

H_INX 

4.1.10 

HALMAT_BLAB 

6,6 

HALMAT_FLAG 

label 

6.2.9 

HALMAT_NODE_START 

6.2.8 

HALMAT_PTR 

3.2.3 

HALMAT_REQUESTED 

4.8 

HEX 
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4.15.4 

IMMEDIATE 

3.2 

INITIALISE 

label 

6.4.4 

INVERSE 

6.4.2 

LAST_INX 

3.7.2 

LAST_SMRK 

4.33 

LIT_ARITHMETIC 

label 

3.1.5 

LITCHANGE 

4.15.3 

LITERAL 

3.13.4 

LITERAL_FOLDS 

4.35.2 

LITLIM 

3.2.5 

LITMAX 

4.35.5 

LITORG 

3.2.6 

LITSIZ 

3.2.7 

LITl 

3.1 

MAIN_PROGRAM 

label 

3.13.8 

MAX_CSE_TAB 

4.14.1 

MAX_NODE  SIZE 

3.13.7 

MAXNODE 

4.36 

MESSAGE  FORMAT 

6.17 

MOVE  LIMB 

label 

3.8 

MOVECODE 

label 

3.8.1 

LOW 

3.8.2 

HIGH 

3.8.3 

BIG 

3.8.4 

ENTER  TAG 

6.1.5 

MPARITYO# 

6.1.6 

MPARITYl# 

6.2.7 

MULTIPLE_WATCH 

4,15.15 

N_INX 

4.12 

NAME_CHECK 

label 

3.6 

NEW_HALMAT  BLOCK 

label 

7.1.2 

NEW_NODE  OP 
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6.1.7 

NEW_NODE  PTR 

6.12 

NEXT_FLAG 

label 

3.11 

NEXTCODE 

label 

4.22 

NO_OPERANDS 

label 

4.15.1 

NODE 

5.1.5 

NODE_BEGINNING 

5.1.9 

NODE_SIZE 

4.15.2 

NODE  2 

4.21.2 

NONCOMMUTATIVE 

3.10.2 

NUMOP 

6.12.1 

NUMOP_FOR_REARRANGE 

4.15.28 

OP 

3.10.4 

OPCODE 

3.18 

OPOP 

label 

3.6.1 

OPR 

3.9 

OPTIMISE 

label 

3.1.3 

OPTIMISING 

3.1.4 

OPTIMIZER_OFF 

4.15.14 

OPTYPE 

4.15.6 

OUTER_TERMINAL  VAC 

4.18.3 

PARITY 

4.10.3 

PM_FLAGS 

6.1.1 

PNPARITYO# 

6.1.2 

PNPARITYl# 

6.4.7 

POINTl 

3.7 

PREPARE_HALMAT 

label 

5.12.6 

PRESENT_HALMAT 

5.1.10 

PRESENT_NODE  PTR 

6.24.1 

PREVIOUS_CALL 

5.12.8 

PREVIOUS_HALMAT 

5.12.5 

PREVIOUS  NODE 

5.12.1 

PREVIOUS_NODE  OPERAND 

5.12.7 

PREVIOUS_NODE  PTR 

3.4 

PRINT_DATE  AND  TIME 

label 
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4.20 

PRINT_SENTENCE 

label 

3.5 

PRINT_TIME 

label 

3.14 

PRINTSUMMARY 

label 

4.23 

PTR_TO_VAC 

label 

6.19 

PUSH_OPERAND 

label 

3.12 

PUT_HALMAT_BLOCK 

label 

6.21 

PUT_NOP 

label 

6.2 

REARRANGE  HALMAT 

label 

6.22 

REFERENCE 

label 

3.16 

RELOCATE 

label 

4.3 

RELOCATE_HALMAT 

label 

5.9.1 

REVERSE 

4.21.3 

REVERSE_OP 

7.5 

REVERSE_PARITY 

label 

4.34 

SAVE_LITERAL 

label 

3.13.6 

SCANS 

5.1.1 

SEARCH 

5.1.3 

SEARCH_INX 

5.10.1 

SEARCH_REV 

5.8 

SEARCH_SORTER 

label 

3.9.3 

SEARCHABLE 

5.1.2 

SEARCH 2 

5.10.2 

SEARCH 2_REV 

6.7 

SET_FLAG 

label 

6.3 

SET_HALMAT  FLAG 

label 

4.21 

SET_NONCOMMUTATIVE 

label 

7.2 

SET  O T V 

label 

6.20 

SET_VAC_REF 

label 

4.38 

SET_VALIDITY 

label 

6.11 

SET_WORDS 

label 

6.11.1 

OPPARITY 

6.11.2 

MATCHED  OPS 

6.11.3 

TERMINAL# 

6.11.4 

TAG 

6,11.5 

SPECIAL 

6.1 

SETUP  REARRANGE 

label 
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5.10 

SETUP_REVERSE 

_COMPARE 

2.7.1 

SMRK_CTR 

5.7 

SORTER 

label 

4.11 

ST_CHECK 

label 

3.1.2 

STATISTICS 

3.9.2 

STILL_NODES 

7.1 

STRIP_NODES 

label 

3.9.1 

STT# 

4.1.11 

STUB_FLAG 

3.10.5 

SUBCODE 

6.15 

SWITCH 

label 

4.15.9 

SYT 

5.1.6 

STY_POINT 

3.2.4 

SYT  SIZE 

4.13 

SYTP 

label 

3.2.8 

SYT_USED 

3.2.9 

SYTJWORDS 

3.10.1 

TAG 

4.39 

TERM_CHECK 

label 

4.26 

TERMINAL 

label 

4.26.1 

TAG 

4.15.5 

TERMINAL_VAC 

6.2.5 

TOPTAG 

6.1.8 

TOTAL_MATCH  PRESS 

6.2.6 

TOTAL_MATCH  PREV 

3.2.1 

TRACE 

4.15.22 

TRANSPARENT 

3.13.3 

TRANSPOSE  ELIMINATIONS 

3.13.11 

TSUB_CSES 

5.2 

TYPE 

label 

3. 19 

VAC_GP  XPT 

label 

4 . 15. 11 

VAC_PTR 

4.37 

VALIDITY 

label 

4.38.1 

VALIDITY_ARRAY 

3.15*7 

VALUE_NO 

3.2.2 

WATCH 
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3.1.6 

3.14 

4.2 


WORK  3 
X_BITS 
ZAP  TABLES 


label 

label 


i 


7 . 0 RUNTIME  LIBRARIES 


The  HAL/S  compilers  generate  calls  to  an  extensive 
runtime  library.  The  library  routines;  implement  all  of 
the  functions  described  in  Appendix  C of  the  HAL/S  Language 
Specification;  implement  the  HAL/S  input/output  facilities; 
implement  most  of  the  matrix/vector  operations;  augment 
the  in-line  code  generation  of  the  compiler  in  several  other 
special  cases.  HAL/S-360  does  not  provide  genuine  real  time 
facilities  but  does  simulate  them  via  a collection  of  runtime 
routines  collectively  called  the  Real  Time  Executive. 

The  runtime  library  for  HAL/S-FC  is  described  in  great 
detail  in  Chapter  5 of  the  HAL/S-FC  Compiler  System  Specifica- 
tion. The  FC  descriptions,  augmented  by  Chapter  5 of  the 
HAL/S-360  Compiler  System  Specification,  serve  to  define  that 
part  of  the  library  which  is  common  to  both  HAL/S-360  and 
HAL/S-FC.  In  addition  to  this  common  library,  HAL/S-360 
requires : 

- the  real  time  executive  described  in  Chapter  10 
of  this  document, 

- SDL  interfaces  described  in  the  HAL/SDL  ICD. 
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8 . 0  HALLINK 


8 . 1  General  Comments 

HALLINK  is  the  generic  name  for  two  programs,  HALLINK 
and  HALLKED,  which  together  link  edit  object  decks  produced 
by  the  HAL  compiler.  The  HALLINK  program  invokes  the  IBM  OS 
linkage  editor,  checks  the  condition  codes  returned  by  the  OS 
linkage  editor,  and  invokes  the  HALLKED  program.  HALLKED 
examines  the  load  modules  produced  by  OS  to  supply  additional 
information  to  the  OS  link  editor  for  a second  invocatioji. 


8 . 2  Description  of  the  HALLINK  Program 

HALLINK  first  determines  whether  a FARM  field  is  present. 

If  a FARM  field  exists,  HALLINK  scans  the  field,  looking  for 
the  character  "slash"  (/) . That  portion  of  the  FARM  field  which 
precedes  the  slash  is  passed  to  the  second  link  edit,  with 
NCAL  appended  to  it.  The  characters  following  the  slash  are 
interpreted  as  FARMS  to  HALLINK  and  HALLKED,  and  are  decoded 
and  stored  in  a table  as  information  to  be  passed  to  HALLKED. 

The  available  FARMS  and  the  action  taken  for  each  are  described 
in  the  HAL/SDL  ICD. 

The  program  then  determines  whether  it  is  being  passed  an 
alternate  DD  list.  If  so,  HALLINK  modifies  its  own  internal 
alternate  DD  lists,  which  it  then  passes  to  the  link  phases  and 
HALLKED  to  reflect  the  user's  wishes. 

If  the  option  'FRIVLIB'  is  specified,  HALLINK  attempts 
to  invoke  the  link  editors  and  HALLKED  from  a library  pointed  to 
by  a DD  card  with  a DD  name  of  'LINKLIB'.  If  FRIVLIB  is  not 
specified  or  if  LINKLIB  cannot  be  opened,  the  invoked  programs 
are  sought  in  the  STEFLIB,  JOBLIB,  or  system  libraries,  as  defined 
in  the  OS  JCL  manual’. 

After  the  first  invocation  of  the  link  editor,  HALLINK 
checks  the  link  editor's  resultant  condition  code.  If  this  code 
is  greater  than  8 , the  step  is  aborted  immediately,  and  the 
system  condition  code  is  set  equal  to  the  link  editor's  condition 
code.  If  the  code  is  less  than  8,  HALLKED  is  invoked.  If,  upon 
return  from  HALLKED,  the  condition  code  is  greater  than  4,  the 
step  is  aborted;  otherwise  the  second  link  edit  step  is  invoked. 

On  return  from  the  second  link  edit,  the  system  return  code  is 
set  equal  to  the  second  link  editor's  return  code,  unless  HALLKED 
has  returned  a condition  code  of  4 , in  which  case  the  system 
code  is  set  to  one  greater  than  the  second  link  editor's  code. 
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Lines 


From  To  Description 

279  294  Invoke  the  link  editor  a second  time. 

296  312  Return  to  calling  program. 

♦ 

Variable  Usage. 

Variable 
RCODE 

MVCPl 

MVCP3 

CLC 

PNOGO 

PARMFLDl 
TESTP 
PARMFLD3 

NCAL 
SAVE 

DDLISTl  (and  variables  until  LISTIEND) 

Alternate  DD  list  for  first  link  edit. 

ZERO  (and  variables  until  LIST2END) 

Alternate  DD  list  for  HALLKED. 

DDLIST3  (and  variables  until  LIST3END) 

Alternate  DD  list  for  second  link  edit. 

NAMEl  Name  of  first  link  editor  to  be  invoked. 

( 

NAME2  Name  of  HALLKED  to  be  invoked. 
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Usage 

Store  return  code  from  HALLKED  (right  shifted 
2 bits)  . 

Move  instruction  executed  to  move  PARM  field 
to  first  link  edit. 

Move  instruction  executed  to  move  PARM  field 
to  second  link  edit. 

Compare  instruction  executed  in  parsing  PARM 
field  for  HALLKED  PARMS. 

PARM  field  passed  to  link  edit  if  'OSLOAD'  or 
' NOGO ' parms . 

PARM  field  for  first  link  step. 

PARM  field  optionally  passed  to  first  link  edit. 
PARM  field  for  second  link  edit. 

PARM  field  passed  to  second  link  edit. 

Save  area  for  OS  calls. 


8.2.1  Detailed  Description  of  the  Functioning  of  HALLINK 


Lines 
From  To 

2 19 

21  32 

34  101 


103 


210 


212 


225 


229 


252 


224 


228 


250 


277 


Description 

Macro  used  to  generate  table  with  HALLINK 
options. 

Set  up  OS  calling  sequences. 

Check  for  parmfield,  and  if  present  scan  for 

through  111  parse  the  HALLINK 
FARMS.  The  algorithm  used  is  a linear  search 
through  the  valid  options,  and  all  character 
strings  not  found  are  ignored.  if  a match  is 
detected,  a byte  is  set  in  the  table  named 
options  (on  line  70) , corresponding  to  the 
option  used.  Starting  on  line  75,  the  program 
determines  whether  or  not  to  pass  the  FARM 
field  to  both  link  edits,  depending  on  the 
BOTH'  HALLINK  parm,  and  also  whether  to  pass 
the  option  'TEST'  to  the  first,  which  is 
triggered  by  the  absence  of  the  'SDL' 

HALLINK  FARM. 

Check  for  presence  of  alternate  DD  list,  and 
If  there,  pass  any  overrides  on  to  the  routines 
who  are  to  receive  them.  The  DD  list  format  is 
described  in  the  HAL/SDL  ICD. 


Check  if 
to  open, 
option. 


'FRIVLIB'  specified.  If  so,  then  try 
In  unable  to  open,  then  ignore  the 


Check  if  a load  library  was  being  constructed. 

If  ;^o,  then  skip  the  first  invocation  of  the  link 
edicor  and  also  of  HALLKED. 

Invoke  the  link  editor  for  the  first  time,  then 
check^return  code.  If  greater  than  8,  skip  to 
end  of  program. 

Invoke  HALLKED.  Check  return  code.  If  greater 
than  4,  skip  to  end  of  program.  if  load  module 
member  name  had  been  supplied  to  the  first  link 
edit  step,  then  also  pass  the  same  name  to  the 
second. 
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Variable 


NAMES 


Usage 

Name  of  second  link  editor  to  be  invoked. 


OPTABL 


LINKLIB 


List  of  options  recognized,  preceded  by  the 
byte  count  minus  1 of  the  number  of  characters 
in  the  name  of  the  option. 

DCB  opened  when  private  library  to  be  used  for 
primary  source  of  loaded  code. 


® ^ General  Comments  and  Warnings  Regarding  HALLKED 

HALLKED  is  the  'real*  HALLINK,  in  the  sense  that  it  does 
all  the  actual  processing  of  the  load  modules  produced  by  the 
OS  linkage  editor  and  constructs  the  necessary  object  decks 
needed  to  complete  the  load  module. 

There  are  five  functional  portions  to  the  program: 

1)  Initialization  of  DD  names  from  the  alternate 

DD  list,  the  opening  of  the  files  and  the  acguisi- 
tion  of  core  for  tables. 

2)  The  cross  checking  of  the  version  numbers  of  the 
routines  in  the  load  module. 


3)  Tne  reading  of  the  load  module  and  the  construction 
of  the  tables  for  use  by  part  4) . 

sizes,  output  of  necessary  object 


5)  Closing  of  files  and  of  freeing  all  space  used  for 
tables  and  I/O  buffers. 

The  five  portions  of  the  program  are  highly  independent  of 
each  other  and  are  treated  separately. 

Warning:  There  is  some  rather  obscure  coding  here.  For 

example,  instead  of  finding  code  such  as: 

ALPHA  BAL  15, BETA 


B ALPHA 
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you  will  find: 


ALPHA 


15,  BETA 


B BETA 


if  register  15  still  contains  the  return  address  of  ALPHA+4, 


8.4  Description  of  the  Initialization  Phase 


Lines  1 through  527  constitute  the  initialization  phase 
of  the  program.  In  it,  the  alternate  DD  lists  are  moved  in 
if  available,  the  PARM  field  is  examined  to  determine  what 
options  to  perform,  the  files  are  opened,  and  core  is  GETMAINed. 


Lines 


Function 


9 - 24 


Set  up  save  areas  and  base  registers.  Registers 
11  and  12  are  the  base  registers  throughout  the 
program,  and  R13  points  to  the  OS  save  area  for 
I/O  calls. 


Check  for  PARM  field  and  modify  some  instructions, 
depending  on  the  desired  options. 


Check  for  alternate  DD  list,  modify  DD  names 
accordingly. 


Check  if  PDS  member  name  supplied  by  user.  If 
so,  skip  code  that  opens  PDS  as  sequential  data 
set. 


Open  PDS  directory,  and  pick  off  the  first  name 
in  it.  Use  that  name  as  input  member  name. 


Open  the  other  files.  Check  for  successful 
open.  If  any  unsuccessful,  return  to  caller, 
passing  back  condition  code  HEX'6C  indicating 
reason  for  abort. 


173  - 457 


Save  areas,  DCBs  and  some  Small  data  areas. 


459  - 473 


Try  to  obtain  space  for  tables.  First  try  to  get 
32-64K,  but  if  unable,  halve  the  request.  If  at 
the  end  of  the  fourth  try  (4-8K) , give  up  and 
return  to  caller. 


..INTERMETRICS  INCORPORATED  --.IQI  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


Function 

Attempt  to  open  a DCB  with  DD  name  of  LINKIN. 

If  able  to,  copy  all  the  records  on  it  to  the 
DCB  with  DD  name  of  STACKOBJ  . Afterwards,  close 
LINKIN  DCB  and  free  up  buffer  space. 

Compute  the  maximum  length  of  each  of  the  tables 
to  be  built  by  the  other  phases  of  the  program. 

8 . 5 Table  of  CSECT  Version  Numbers 

The  code  between  lines  529  and  719  is  designed  to  make 
sure  that  the  version  numbers  of  the  various  compilation  units  in 
the  load  module  are  the  same  as  the  numbers  were  when  the  units 
were  compiled.  The  version  numbers  are  passed  to  the  link  editor 
on  SYM  cards,  and  are  retained  in  the  load  module  because  the  'TEST' 
option  is  automatically  passed  to  the  first  link  step  by  HALLINK 
(except  when  the  SDL  option  is  used) . 


The  HAL  compiler  provided  SYM  cards  are  coded  in  a special 
way  to  prevent  other  language  translator's  SYM  information  from 
interfering  with  the  checking  process  by  providing  extraneous 
information  which  other  translators  will  not  use. 

The  HAL  compiler  emits  version  information  by  specifying 
the  CSECT  names  of  the  compilation  units  on  the  SYM  cards  with 
addresses  corresponding  to  the  version  numbers.  This 
information  is  sandwiched  between  two  invalid  control  section 
names  (HALS/S  at  the  front,  HALS/E  at  the  end  of  the  version 
information) . The  program  waits  for  the  HALS/S  CSECT  appearing 
on  a SYM  card  before  it  attempts  to  process  the  information 
contained  on  the  card.  The  HALS/S  must  appear  as  the  first 
byte  of  information  in  the  SYM  card.  The  version  information  is 
then  extracted  until  the  HALS/E  delimiter  is  detected. 

The  first  CSECT  name  encountered  after  the  HALS/S  defines 
the  version  of  the  compilation  unit,  whereas  all  those  following 
it  (if  any)  until  the  HALS/E  are  the  versions  of  the  compilation 
units  it  references. 

The  program  builds  a table  (described  by  the  DSECT  SYMCELL 
on  lines  1691  - 1695)  and  processes  the  data  after  the  end  of 
the  SYM  cards.  (All  symbol  information  appears  before  the  CESD 
records  in  a load  module.)  The  table  resides  in  GETMAINed 
core.  As  entries  are  added  to  it,  a check  is  made  to  ensure  that 
the  size  of  the  table  does  not  exceed  the  storage  available. 


REPRODtJGIBILI'rY  OF 'niS 
iriiGE  IS  FC30B 
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Lines 
476  - 514 

515  - 527 


8.5.1  Usage  of  Variables  in  the  Table 
Control  Section  name. 

FP  (Father  Pointer.) 

Byte  0 : Indicates  whether  the  entry  defines  a 
version  number  (def  node) ^ a reference  to  a 
version  (ref  nod®) ? or  is  a dummy  entry  placed 
there  because  a ref  was  made  to  a CSECT  which 
did  not  yet  have  a def  entry  (undef  node) . 

Bytes  1-3:  If  byte  0 is  ref,  bytes  1-3 

contain  the  address  of  the  entry  which  referred 
to  It.  If  byte  0 is  not  a ref,  bytes  1-3 
are  null. 

PP  (Brother  Pointer.) 

Byte  0:  Contains  the  version  number  if  ref  or 

def  node.  Null  if  undef. 

Bytes  1—3:  Contains  the  address  of  the  next 
entry  which  is  a ref  to  the  CSECT  contained  in 
SN  in  this  entry.  Null  if  last  or  only  entry 
containing  this  CSECT. 

CSECT  Create  in  this  table  a def  node  for  each 

Thc»  RP  of  the  first  entry  in  which  it  appears  in  the  table. 

a^Lf  noL  containing 

a ref  node  of  the  same  CSECT  name.  That  entry's  BP  will,  in  turn 

point  to  the  next  entry  with  the  same  CSECT  name,  and  so  on  until' 
all  entries  containing  the  same  CSECT  name  are  linked  together. 
null^in^P^^^^  table  containing  a given  name  will  have  a 

CSECT  points  to  the  entry  containing  the 

the  reference  to  that  compilation  unit.  In  the 
version  mis-match,  an  error  message  is  issued. 


Construction  of  the  CSECT  Version  Number 

A B user  linked  together  four  compilation  units: 

wac  a’  ^ version  of  A was  10,  B was  20,  C was  30,  and  D 

compilation  unit  A referenced  B and  C,  compilation 
unit  C referenced  B and  D,  while  B and  D did  not  refei  to  Iny 
other  compilation  units.  ^ 

A 

^ X 

B-< C 


Figure  8-1 

Assume  these  units  appeared  in  the  order  A,  C,  D,  B. 
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HALLKED  considers  each  CSECT  in  the  order  of  its  appearance, 
and  will  perform  as  follows  in  constructing  and  modifying 
the  entries  in  the  table. 


The  first  CSECT  to  appear  is  A.  Since  it  is  not  refer- 
enced by  another  program,  it  is  labelled  DEF  in  the  first  byte 
of  FP.  The  version  number,  10,  is  stored  in  the  first  byte  of 
BP.  The  rest  of  BP  is  null  because  there  are  no  ref  nodes 
referring  to  A. 

The  next  two  entries  are  for  CSECT  B.  The  first  of 
these  two  is  a dummy  entry  into  which  a DEF  entry  will  eventually 
be  placed.  In  byte  0 of  FP  it  has  undef,  and  in  bytes  1-3  of 

BP  it  has  the  address  of  entry  three  in  the  table,  where  B also 

occurs  as  a ref.  Entry  three  has  the  address  of  the  referring 
program,  in  this  case  A,  the  version  number  in  byte  0 of  BP, 

and  nothing  in  bytes  1-3  of  BP.  This  space  will  be  filled  when 

further  ref  entries  for  B are  added  to  the  table. 


first 

five 

entries 

the  table 

will  contain 

these  values: 

FB 

bytes 

BP 

bytes 

Entry 

_i 

SN 

_0_ 

1-3 

_0_ 

1-3 

1 

A 

DEF 

10 

2 

B 

UNDEF 

3 

3 

B 

REF 

1 

20 

4 

C 

UNDEF 

5 

5 

C 

REF 

1 

30 

Figure  8-2 

The  program  next  considers  compilation  unit  C.  FP  byte 
0 of  entry  four  is  changed  to  a Def.  (Having  the  dummy  in  this 
byte  has  insured  that  the  first  occurrence  of  C in  the  table  will 
be  the  father  pointed  to  by  those  units  referenced  by  C.)  Entry 
six  contains  data  pertaining  to  B as  referenced  by  C.  Byte  0 
of  FP  is  Ref,,  bytes  1 through  3 point  to  entry  four,  byte  0 of 
BP  is  the  version  number,  in  this  case,  twenty,  and  bytes  1 through 
3 of  BP  contain  a null.  At  the  same  time,  bytes  1 through  3 of 
BP  of  entry  three  are  changed  to  contain  the  address  of  the  next 
reference  to  B,  or  six.  Entries  seven  and  eight  are  constructed 
in  a manner  similar  to  the  construction  of  entries  two  and  three. 

As  the  program  finally  reaches  D and  B,  it  changes  the 
dummy  first  occurrences  of  those  units  in  the  table  to  definitions. 
The  final  appearance  of  the  table  is  as  follows: 
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Entry  # 


FP 

BP 

SN 

Byte 

Byte 

- 

0 

1-3 

0 

A 

Def 

10 

B 

Def 

20 

B 

Ref 

1 

20 

C 

Def 

30 

C 

Ref 

1 

30 

B 

Ref 

4 

20 

D 

Def 

40 

D 

Ref 

4 

40 

Figure  8-3 

compared.  When^thl^BP°Sf^a"'rSf ^noL‘^is 

the  next  def  node  The  no<-nr-r-oTgr,f°^^  ^ ^ program  seeks 

erenced  but  not  LfineS  ™"Sre?ro?. -"■ 

8.5.3  Version  Number  Cross  Referencing 
Lines 


530  - 535 


537  - 581 

537  - 544 
545  - 550 
551  - 569 
570  - 576 
577  - 581 

583  - 590 


Function 

Read  next  load  module  record,  check  if  SYM 
through.  “ pointer  and  drop 

it^before”®''''*'  ^ y°“  ^bodt 

Last  Stage  of  version  processing,  verify  that 
all  defs  and  refs  are  the  same,  ^ 

Look  for  def  nodes. 

Check  all  ref  nodes  for  same  version  number. 
Print  error  message  for  version  mis-match. 

Print  error  for  undef  node. 

no^rnSre!^^^  if 

not°SYM°^  SYM -card  image  on  record,  ignore  if 
next!  on  this  record,  read 


■ 592  - 593  Determine  whether  the  node  wi]  1 be  r3-^-f  or  r^e  c . 

flag  on  xn  variable  SYMS  if  looking  for  def .^*  Search 

i 594-599  See  if  HALS/S  on  card.  If  not,  ignore  it. 
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Lines 


Function 


604  - 617 

618  - 621 
623  - 626 
627  - 630 
631  - 634 
635  - 648 
650  - 653 
654  - 656 
657  - 658 


659  - 674 

676  - 693 
694  - 697 
698  - 709 
711  - 719 


Move  data  from  card  to  internal  storage. 

Check  if  HALS/S  on  card,  and  if  so,  reset  to 
def  mode. 

Check  for  more  information  on  card. 

Check  if  def /ref  expected. 

Turn  off  search  def  flag  to  indicate  ref  mode. 
Look  for  entry  with  same  CSECT  name. 

No  such  entry,  create  def  node. 

Ascertain  whether  def /ref /undef  entry  found. 
Undef  node  changed  to  def. 

Def  node  encountered.  Check  if  two  versions  are 
same.  (This  should  not  happen,  since  there 
should  not  be  two  defs  for  the  same  CSECT  name. 
Indicates  that  the  compilation  units'  names  not 
unique  in  the  first  6 characters.) 

Print  error  message  about  conflicting  def 
versions  for  the  same  CSECT  name. 

Create  ref  entry. 

Search  for  an  entry  with  same  CSECT  name. 

None  found.  Create  undef  entry. 

Link  entry  into  chain  of  refs. 
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8.5.4  Composite  External  Symbol  Dictionary  and  Relocation 
Dictionary 


The  Composite  External  Symbol  Directory  and  the  Reloca- 
tion Dictionary  are  constructed  by  HALLKED  for  the  purpose  of 
determining  the  maximum  size  of  stack  which  will  be  necessary 
at  any  one  time  in  the  running  of  the  program  being  link- 
edited.  To  .do  this,  it  is  first  necessary  to  compute  the 
maximum  stack  size  required  by  each  CSECT,  and,  in  a series 
of  passes,  to  add  to  each  CSECT  stack  size  the  maximum  stack 
size  which  can  be  required  at  any  one  time  by  all  the  CSECTS 
which  it  calls.  Using  the  example  before,  where  A calls  B 
and  C,  and  C calls  B and  D,  the  stack  size  required  by  C will 

be  the  sum  of  its  own  stack  size  and  the  maximum  of  the  stack 

sizes  required  by  B and  D.  The  stack  size  required  by  A will 

be  the  sura  of  its  own  stack  size  and  the  maximum  of  the  stack 

sizes  required  by  B and  C. 

HALLKED  must  construct  a dictionary  to  tell  who  calls 
whom.  This  is  the  RLD.  Each  CSECT  has  one  entry  in  the  CESD. 
If  that  CSECT  calls  any  other  CSECTs,  there  will  be  a pointer 
in  its  CESD  entry  to  an  RLD  entry.  At  that  RLD  entry,  there 
will  be  two  pointers,  one  pointing  to  the  CESD  entry  for  the 
routine  which  has  been  called  by  the  original  CSECT,  and  one 
pointer  pointing  to  the  RLD  entry  which  points  to  the  next 
subroutine  called  by  the  original  CSECT. 

The  tables,  constructed  for  the  case  in  Figure  8-1, 


appear  as  follows; 

Entry 

No. 

CSECT  Address  of 

Name  First  Byte 

Pointer  into  Length  of 

RLD  Table  Unused  CSECT 

Indicators 

Bytes 

8/  12/ 

14/  16/  18/ 

20/ 

1 

A 

1 

2 

C 

3 

3 

D 

- 

4 

B 

RLD  Table 

Pointer  Back  to  Pointer  to  Next 

CESD  Table / Entry  in  RLD  Table 

1 4 2 

2 . 2 - ■ 

3 4 4 

4,  3 . 
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The  partial  stack  size  of  each  routine  — that  is  to 
say,  the  stack  size  required  by  each  routine  alone,  and  not 
including  the  stack  size  required  by  any  routine  it  may  call  — 
is  supplied  by  the  compiler  or  assembler.  On  subsequent  passes 
by  HALLKED,  the  partial  stack  sizes  of  the  innermost  routines 
(innermost  in  terms  of  level  of  nesting)  are  added  to  the 
partial  stack  sizes  of  those  CSECTS  which  reference  them  to 
obtain  a new  partial  stack  size  for  the  next  outer  layer 
of  subroutines.  This  process  continues  until  all  stack  sizes 
are  either  "complete"  or  until  recursion  is  found. 

Description  of  the  individual  lines  of  program  follows. 


Lines  Function 

720-729  Set  up  registers. 

731-739  Determine  if  ESDID  number  is  out  of  range 

indicating  lack  of  core.  If  so,  ABEND. 

Get  address  of  core  buffer  for  control  section 
information. 

741-752  Construct  entry  in  CESD.  Determine  if  it  is 

null,  SD  (Segment  Definition) , or  LD  (entry 
point  other  than  beginning  of  routine) . If 
LD,  then  move  the  ESDID  number  of  the  SD 
containing  it  to  the  length  field. 

754-766  Move  name  to  table.  If  CSECT  name  is  HALSTART, 

ignore  NOHALSTART  option.  Determine  if  CSECT 
is  HAL  program,  task,  or  stack. 

768-770  Process  all  the  CESD  entries  on  the  record. 

772-775  Read  the  next  record.  If  it  is  a CESD  record, 

repeat  process  in  lines  731-770,  otherwise, 
continue  processing  the  remaining  types  of 
records . 
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8.5.5  External  Reference  Table 


This  section  sets  up  external  reference  tables  and 
HAL  procedure  NAME  tables  (if  XREF  has  been  specified  by  the 
user)  . 


Lines 


Function 


777-792  Compute  addresses  of  the  other  tables;  RLD 

table,  and  (optionally)  the  control  section's 
HAL-name . 


794-795 

797-815 

835-860 

861-862 

863-875 

877-880 

881-887 

890 


ABEND  if  there  is  insufficient  space  for  auxiliary 
tables . 

If  a stack  control  section  has  been  read  in, 
or  if  the  first  byte  of  the  control  section  was 
not  on  record,  do  not  examine  contents  of  the 
text  record. 

Check  the  first  few  bytes  of  the  text  of  the 
control  sections  to  see  if  each  was  produced 
by  HAL  compiler,  or  is  a library  member. 

Round  stack  size  to  next  higher  double  word 
(making  sure  stack  size  is  multiple  of  eight 
bytes)  . 

If  control  section  is  a HAL  program's  internal 
procedure,  indicate  this  in  its  CESD  table  entry. 

If  XREF  was  specified  as  a HALLINK  parameter, 
move  the  actual  user  name  for  the  procedure  to 
a table. 

Indicates  in  CESD  table  if  this  is  HAL  program, 
comsub,  or  task.  If  entry  is  a library  member, 
it  indicates  this. 

If  control  section  is  not  a HAL-type  section, 
exit. 


892-895 


Repeat  lines  731-890  for  next  CESD  item  on  text 
record . 
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Lines 


Function 


897-898 

899-917 

919-930 

932-938 

940-945 

947-948 

949-950 

951-958 

959-967 

968-975 

975-978 

989-997 

998-1012 

1013-1012 
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If  End  of  Module  switch  is  set,  skip  to  the 
next  phase  of  processing  (line  1022) . 

Read  the  next  record  from  the  load  module, 
determine  its  type,  and  branch  to  appropriate 
processing  routine. 

If  Control  Relocation  Dictionary  has  been  read 
in,  move  control  information  to  control  buffer, 
and  move  relocation  information  to  relocation 
buffer. 

If  Control  record  has  been  read  in,  set 
up  control  buffer. 

If  RLD  record  has  been  read  in,  set  up  RLD  buffer. 

Set  up  registers  for  RLD  processing. 

If  PCS  and  REF  flags  were  omitted  from  this  entry, 
use  previous  entry's  POS  and  REF  values. 

Pick  up  previous  POS  and  REF  if  they  were  omitted 
from  this  item. 

Pick  POS  and  REF  flags  from  record. 

If  the  entry  is  not  of  consequence,  like  a null 
CSECT,  ignore  it. 

If  the  current  entry  has  already  been  linked 
to  its  calling  entry,  do  not  link  it  again. 

If  a new  RLD  entry  has  to  be  added,  the  last 
entry  in  the  table  with  the  same  name  has  a 
pointer  at  the  current  entry  appended  to  it. 

If  the  current  entry  has  POS  and  REF,  save  POS 
and  REF  flag  fields. 

Resolve  entry  points  into  the  middle  of  CSECTS 
into  references  to  those  entries  themselves. 
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Lines 


Function 


1022-1070 

1022-1024 

1026-1027 

1028-1031 

1032-1034 

1036-1040 

1042-1048 

1050-1051 

1052-1054 

1057-1059 

1061-1062 

1064-1067 
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In  this  section,  the  stack  size  required  by 
the  program  is  computed  (see  description  in 
Section  8.5.4).  For  the  purposes  of  this 
description,  A is  a CSECT  which  calls  B. 

We  start  out  processing  A. 

Set  up  a switch  which  will  indicate  that  no 
changes  have  occurred  in  the  table  since  the 
last  pass. 

If  either  the  complete  stack  size  has  already 
been  computed,  or  should  not  be  computed, 
to  to  1069. 

If  the  CSECT  being  examined  calls  another 
routine  (B)  , go  to  1036.. 

If  not,  set  a bit  saying  his  stack  size  is 
valid  ("complete"). 

Find  the  entry  in  the  RLD  table  to  which 

the  CSECT  entry  currently  under  consideration 

points. 


If  the  called  routine  is  entered  from  a point 
other  than  the  beginning  of  the  called  routine, 
reset  the  register  to  point  to  the  encompassing 
SD. 

If  the  routine  "B"  called  by  A is  a stack  or 
non-HAL,  go  to  1061  to  see  if  A refers  to  any- 
body else. 

If  stack  size  of  B has  not  been  computed,  set 
indicator  for  "uncompleted". 

If  stack  size  computation  has  been  completed, 
test  it  against  the  current  max  of  routines 
referenced  by  A.  If  it  is  greater  than  the 
current  max,  replace  that  number  with  B's 
completed  stack  size. 

Determine  what  other  entries  are  referenced 
by  A. 

If  A calls  nobody  else,  add  current  move  to 
CESD  value  for  entry  now  being  processed. 

Drop  through  to  1069. 
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Lines 


Function 


1069-1070 

1072-1074 

1075-1078 

1078-1125 

1078-1079 

1081-1082 

1083-1084 

1086-1090 

1092-1104 

1106-1114 

1116-1118 

1124- 1125 

1125- 1158 

1160-1179 

1181-1194 


INTERMETRICS  INCORPORATED 


Points  to  next  entry  in  CESD  table. 

If  there  are  no  uncomputed  stack  sizes,  go  to 
1128. 

If  there  are  uncomputed  stack  sizes,  and  there 
has  been  a change  in  the  table  on  the  last  pass, 
make  another  pass. 

If  there  are  unresolved  references  and  no 
change  in  the  table  on  the  most  recent  pass, 
there  is  recursion.  These  lines  determine 
where  the  recursion  has  occurred  and  send  a 
message  to  the  user. 

Sets  up  registers. 

If  stack  size  is  computed,  go  to  1124. 

If  this  is  not  a main  program  go  to  1124. 

Print  message,  and  this  main 

program  has  some  recursion. 

At  first  node  which  has  no  stack  size  computed 
for  it,  start  looking  for  recursion. 

Find  which  of  routines  which  A calls  is  the 
one  whose  stack  size  is  uncomputed.  Continue 
following  the  pointer . 

If  the  flag  which  indicates  this  spot  has  been 
visited  before  it  is  set,  go  to  1094  to  print 
out  a message  which  CSECTs  are  recursing. 

Go  to  next  entry  in  CESD,  in  case  there  is 
more  than  one  recursion. 

If  TREE  has  been  specified,  print  out  which 
routines  call  which  other  ones. 

Compute  max  stack  size  for  PROGINT  and  TIMEINT. 

Unless  NOHALSTART  was  specified,  punch  out: 
INCLUDE  SYSLIB (HALSTART) . 


REPRODTJCIBILm' OF  THS 
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Lines 


Function 


1195-1275 

1195-1201 

1202-1207 

1208-1221 

1222-1230 

1231-1241 


Unless  NOHALMAP  was  specified,  this  section 
produces  a control  section  called  HALMAP 
which  points  to  every  program,  task,  and 
Simulator  Data  File  member  name. 

Produce  card  to  LKED  which  provides  HALMAP 
CSECT  name , 

Set  up  registers. 

Determine  whether  entry  in  CESD  is  program, 
task,  compool,  or  comsub. 

Create  card  pointing  at  it  and  identifying 
it  as  one  of  the  above. 

Output  text  card  of  form; 


1 

3 

8 

identifier 

f 

A 

d 

d 

r 

e 

s 

##  6 char- 
acters 

\ 

compool , 
program. 

comsub , 
task 

s 

SDF 

membername 

1242-1254 

1255-1256 

1257-1268 


1277-1281 


The  second  thru  fourth  bytes  is  a V-type 
address  constant. 

Go  through  each  entry  in  CESD  table  to  see  if  it 
is  a program,  task,  or  compool.  (Go  to  1208). 

Place  in  the  first  four  locations  of  the  control 
section  of  HALMAP,  a count  of  how  many  entries 
in  the  table  there  will  be.  CSECTs  for  the 
stack  puts  out  control  sections  which  will  be 
stack  for  each  program  and  task. 

Set  up  registers. 
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Lines 

1283-1285 


1286-1301 


1303-1304 


Function 


Determine  if  entry  has  stack  associated 
with  it  (i.e.  it  is  a PROGRAM  or  TASK) . If 
there  is  no  stack,  go  to  1303. 

Put  out  card  specifying  to  the  link  editor 
how  big  the  stack  is  after  adding  in  PROGINT 
and  TIMEINT  stack  sizes. 

Repeat  1283-1301,  looking  for  valid  stack 
candidates . 


1308-1313  Put  out  card  saying  END. 

1315-1354  INCLUDE  TEMPLOAD (TEMPNAME) . If  membername  of 

load  module  is  TEMPNAME,  put  out  no  card, 
if  name  is  not  TEMPNAME,  put  out  a card  which 
has  NAME  user-specified-name (R)  on  it. 

1356-1364  If  TREE  is  in  effect,  print  out  max  of  stack 

size  of  PROGINT  and  TIMEINT. 


1366-1389  If  XREF  has  been  specified,  print  out  user- 

supplied  HAL  names  and  corresponding  CSECT 
name . 


1391-1406  Determine  return  code  to  pass  back  to  HALLINK. 

O-OK  4-programmer  allowed  recursion.  ^100  is 
fatal  error. 

1408-1470  Gives  OS  back  all  its  space.  Close  off  files. 


1471-1476  Return  to  calling  program. 


Internal  Subroutines 


1478-1488 


14'90-1507 

1509-1534 

1535-1559 


Print  out  name  and  length  of  stack  in  hex 
on  left  side  of  page,  return. 

Print  out  up  to  nine  subroutines  on  the  right 
hand  side  of  the  page. 

Subroutine  from  OS  for  going  to  next  line  on 
printer  or  skipping  to  top  of  next  page. 

Reads  in  load  module. 
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BASES 


2A 


Base  addresses. 


OS SAVE 

18A 

Register  Save  Area. 

FINDNAME 

D 

PDS  member  name. 

SYSLINBL 

A 

Length  of  PDS  directory  buffer. 

SYSLINBA 

A 

Address. 

DOUBLE 

7D 

Register  Save  Area. 

SYMNA 

A 

Address  of  next  SYM  record. 

SYMCA 

A 

Address  of  current  SYM  record. 

RCODE 

F 

Return  code. 

PADDR 

A 

Address  of  print  buffer. 

ARLD 

A 

Address  of  RLD  table. 

ABUFF 

2A 

Address  and  size  of  GETMAINed  core. 

AC BARS 

A 

Address  of  buffer  containing  the 
programmer  supplied  procedure  names. 

OLDRP 

A 

Provides  REF/POS  flags. 

SIZES 

2A 

Size  of  region  to  be  requested. 

CCW 

A 

Address  of  portion  of  CCW. 

PAGECT 

A 

Number  of  pages  printed. 

LINECT 

A 

Number  of  lines  printed  on  current  page. 

MAXESD 

H 

Largest  ESDID  encountered. 

SYMCOUNT 

H 

Number  of  SYM  table  entries. 

SYMMAX 

H 

Number  of  SYM  table  entries  which  can  fit 
in  core. 

#CTL 

H 

Number  of  bytes  of  CESD  information. 

#RLD 

H 

Number  of  bytes  of  RLD  information. 
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NEXTRLD 

H 

Index  of  next  available  entry  in  RLD 
table . 

ADDED 

H 

Stack  size  for  recursive  programs. 

#TIME 

H 

Index  into  CESD  table  of  TIMEINT. 

#PROGINT 

H 

Ditto  for  PROGINT. 

MAXESDID 

H 

Largest  ESDID  which  can  be  placed  in 
CESD  table. 

MAXRLD 

H 

Largest  RLD  which  can  be  placed  in  RLD 
table . 

S 

X 

Some  general  switches. 

FLAGS 

X 

Flag  field  of  RLD  item. 

BLANKS 

8C 

Character  string  blanks. 

CTLTABLE 

236X 

Control  data  from  control  or  control/RLD 
record. 

RLDTABLE 

236X 

RLD  data  from  RLD  or  control/RLD  record. 

TRCHAR 

16C 

Translates  unpacked  decimal  number  to 
PRINTABLE  character. 

SYSLIB 

8C 

Name  of  library. 

ESDCARD 

8 0C 

ESD  card  to  link  editor. 

INCLUDE 

8 0C 

INCLUDE  card  to  link  editor. 

MEMBER 

8C 

PDS  member  name. 

HEADER 

31C 

ESD  card  defining  HALMAP. 

HALESD 

13C 

ESD  card. 

HALTXT 

17C 

TXT  card. 

PiALRLD 

2 1C 

RLD  card. 

REGCMSG 

C 

Error  message. 
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I 3 ...  . . . 


J 

9 


■ A 


.1 

i 

i 


■.■I 


! 


I 


■i. 


HEADING 

C 

Heading  when  "TREE”  was  specified. 

XREFH 

C 

Heading  when  "XREF"  specified. 

VALIDCHR 

256C 

Valid  HAL  names  for  procedures. 

02SYM 

4C 

Start  of  SYM  card. 

SYMSTART 

C 

Indicator  that  SYM  record  produced 

HAL  compiler. 

SYMS 

X 

General  switches. 

SYMBUPPV 

X 

Version  Number. 

SYMBUPPN 

8C 

Control  section  name. 

SYMEl 

Error  Messages. 

SYME2 

Error  Messages. 

SYMVl 

Error  Messages. 

SYMV2 

Error  Messages. 

SYMDUP 

Error  Messages. 

SYMDUPVl 

Error  Messages. 

SYMDUPV2 

Error  Messages. 

PATCH 

lOD 

Area  in  which  to  patch  code. 

i 

i 


''V 
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9.0  THE  HAL/S  SUBMONITOR 


The  HAL/S  submonitor  is  an  augjnented  version  of  the 
standard  XPL  submonitor . Its  primary  function  is  to  act  as 
an  interface  between  the  compiler  and  OG/360.  The 
recjuirements  of  the  HAL/S  compiler  for  interacting  with 
OS/360  take  several  forms: 

1)  Loading  the  various  phases  of  the  compiler 
into  core  and  placing  them  into  execution. 

2)  Sequential  string  input  and  output 

3)  Direct  access  input  and  output 

4)  Obtaining  external  information (e .g . , DATE) 

5)  Obtaining  information  common  to  the 
phases . 

6)  Performing  compile-tirne  computations 
(e.g.,  SINE) 

In  addition  to  this  compiler  support  function, 
capabilities  are  built  into  the  submonitor  to  provide  such 
interface  support  for  the  HALSTAT  program  and  dynamic 
invocation  of  the  compiler. 

This  section  describes  hov/  these  requirements  are  met 
by  the  HAL/5  submonitor.  Familiarity  with  IBtM  OS/360,  job 
control  language,  and  OS/360  assembler  language  is  assumed 
in  this  discussion. 


9 . 1 Compiler  Execution 

The  HAL/S  submonitor  is  the  program  which  is  initially 
loaded  into  core  or  called  and  given  control.  The  submonitor 
then  proceeds  to: 

1)  process  any  dynamic  invocation  parameters. 

2)  process  any  user  specified  options  for  the 
HAL/S  submonitor. 

3)  setuo  for  Parallel  file  accessing. 

4)  setup  for  interrupt  aandling. 

5)  setup  for  compiler  timing. 
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6)  open  initially  needed  files. 

7)  obtain  space  in  memory  for  Phase  I. 

8)  load  Phase  I into  core. 

9)  give  Phase  I control. 

Steps  7,  8,  and  9 are  repeated  for  each  succeeding  phase  of 
the  compiler  with  the  exception  that  an  additional  linking 
process  occurs  between  each  phase.  When  all  phases  are 
complete,  control  returns  to  the  submonitor  where  cleanup  is 
performed  and  control  given  back  to  OS/360. 

During  the  execution  of  any  phase  of  the  compiler,  the 
submonitor  may  be  called  upon  to  provide  one  of  the  services 
described  in  Section  9.0;  thus,  the  submonitor  serves  in  two 
distinct  modes: 

-as  a caller  (overseer)  to  the  HAL/S  compiler 

-as  a co-routine  to  the  compiler 

A map  of  the  submonitor  as  it  might  reside  in  core  along 
with  flow  of  program  control  is  provided  in  Figure  9.1.1. 
Each  of  the  modes  of  the  submonitor  will  be  discussed 
separately. 


9.2  As  an  Overseer 

The  basic  functions  of  the  submonitor  as  an  overseer 
were  listed  in  Section  9.1.  Each  of  these  functions  will  be 
discussed  in  turn. 


9.2.1  Processing  Dynamic  Invocation  Parameters  j 

/ J 

OS/360  provides  a facility  through  which  DDNAME  I 

overrides  may  be  passed  to  a program  to  be  run.  When  | 

dynamically  invoked,  the  submonitor  may  in  fact  be  provided  J 

with  such  an  override  list.  (See  the  HAL/SDL  ICD,  Section  I 

2. 2. 1.1.1  for  a description  of  the  override  conventions).  In 

addition,  a field  may  be  provided  in  which  the  name  of  the  H 

control  section  generated  by  the  compiler  may  be  returned. 

The  subraonitor  searches  through  the  alternate  DDNAME  list 
and  moves  the  override  DDNAME  for  any  file  into  its 
corresponding  area  in  the  submonitor's  DCB  data  area.  The 
CSECT  name  option,  if  it  exists,  is  saved  for  later  use  by 
the  compiler  when  returning  the  desired  CSECT  name. 


9-2 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  ' CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


compiler 

invocation 


3 Service 
Requests  w 


compiler 

ermination 


abend 


request 


HAL/S  Submonitor 
XPLSM: 

initial  setup 
and  loading 
routines 


clean  up  and 
exit  routines 


submonitor  local 
data  area 


miscellaneous 
support  routines 


error  handling 
routines 


HAL/S  Compiler  Phase 


CALLXPL 


return 


ENTRY ; 

service  request 
dispatcher 

Service 

Routines 


UX  J-inJi  . ^ 
request 

^ service 
^request 

L reques 

I complete’ 


OS  Service 
Requests^ 


DCB'  s 


miscellaneous 
MONITOR  service 
routines 


Figure  9.1.1 
Compiler  Execution 


-OISPEODUCIBMTY  OP  THE 

Smal  page  is  poor 


9.2.2  Processing  of  User  Specified  Options 


Upon  completing  processing  of  any  dynamic  invocation 
parameters,  the  sub.monitor  proceeds  to  load  the  'MONOPT' 
options  processor  and  call  it. 

When  a HAL/S  system  options  processor  is  called,  the 
result  is  a pointer  (OPTADDR)  to  an  option  table  which 
describes  the  values  of  all  Type  1 and  Type  2 options.  An 
example  of  the  option  table  and  its  associated  data  is 
illustrated  in  Figure  9.2.1.  The  options  processor  returns  a 
pointer  to  a six  word  list.  The  first  word  in  the  list 
(options)  is  the  flag  field  correspinding  to  the  values 
(default  or  specified)  of  the  Type  1 options.  The  fullwords 
from  OPTIONS+4  to  OPTIONS+20  contain  pointers  to  further 
lists.  These  lists  are  described  below. 

CON  (referenced  via  OPTIONS+4)  - A series 

of  XPL  descriptors  which  point  to 
character  data.  The  character  data 
show  the  value  of  an  option  as  it  is 
currently  in  effect.  Thus,  if  NODUMP 
had  been  specified  or  defaulted,  a 
descriptor  pointing  to  the  characters 
'NODUMP'  would  exist.  If  DUMP  had  been 
ON,  then  a descriptor  pointing  to  the 
characters  'DUMP'  would  exist.  A zero 
descriptor  indicates  the  end  of  the 
list. 

PRO  (referenced  via  OPTIONS+8)  ^ A series 

of  XPL  descriptors  which  point  to 
character  data.  The  character  data 
correspond  to  the  order  of  the  options 
described  by  the  CON  descriptors.  The 
characters  show  the  state  of  the  option 
NOT  in  effect.  Thus,  if  DUMP  had  been 
ON,  a descriptor  in  CON  would  point 
to  'DUMP'  and  a descriptor  at  the 
corresponding  point  in  PRO  would  point 
to  'NODUMP'.  A zero  descriptor 
indicates  the  end  of  the  list. 

DESC  (referenced  via  OPTIONS+12)  - A series 
of  XPL  descriptors  which  point  to 
character  forms  of  the  Type  2 options. 

The  list  is  terminated  by  a zero 
descriptor. 

VALS  (referenced  via  OPTIONS+1 6 ) - A series 
of  fullwords  which  contain  the  value 
of  the  corresponding  Type  2 option  in 
the  DESC  table.  Thus,  if  PAGES=1000 
had  been  coded,  a descriptor  in  DESC 
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would  point  to  'PAGES'  and  the 
corresponding  entry  in  VALS  would 
contain  the  value  1000.  Some  entries 
in  VALS  may  be  descriptors  if  the 
value  of  the  corresponding  option  is 
character  data  (e.g.»  TITLE). 

MONVALS  (referenced  via  OPTIONS+20)  - A series 
of  fullwords  containing  values  of 
options  in  the  same  way  as  VALS. 

These  values  correspond  to  options 
which  are  internal  to  the  compiler 
system  and  therefore  do  not  have  a 
descriptor  allocated  in  DESC. 

Upon  return  from  the  call  to  the  MONOPT  options 
processor,  the  submonitor  transfers  the  information 
tabular ized  by  the  options  processor  to  its  local  data  area. 


9.2.3  Parallel  File  Accessing 

The  HAL/S  compiler  requires  the  capability  to 
simultaneously  access  the  template  library  in  two  different 
manners.  The  first  is  as  an  INCLUDEd  input,  the  second  is 
for  template  checking  purposes.  In  addition,  the  compiler 
requires  the  capability  to  reference  both  the  INCLUDE  and 
OOTPUT6  DDNAMEs  to  find  a member.  Therefore,  the  submonitor 
moves  the  INCLUDE  DDNAME  to  both  INPUT4  and  INPUT?  DCB's  and 
copies  the  DDNAME  for  the  INCLUDE  file  into  INCLNAME  and  the 
DDNAME  for  OUTPUTS  into  OUT6NAME  for  future  reference. 


9.2.4  Interrupt  Handling 

The  submonitor  traps  floating  point  overflow  and 
underflow  which  might  occur  during  floating  point  compile 
time  computations.  It  returns  the  maximum  positive  floating 
point  number  for  an  overflow  and  floating  zero  for  an 
underflow.  These  interrupts  are  trapped  by  issuing  a SPIE 
macro  for  interrupts  12  and  13. 


9.2.5  Compiler  Timing 

The  submonitor  issues  a task  STIMER  macro  with  an 
interval  of  one  hour.  The  resultant  timer  may  be  accessed  by 
a subsequent  MONITOR  call. 
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9.2.6  Opening  Initially  Needed  Files 

The  suonionitor  initially  opens  the  files  INPUTO  (SYSIN)  , 
OQTPUTO(SYSPRINT) , PROGRAM (compiler  object  code),  and 
INPUTS (ERROR) . If  the  LISTTNG2  option  has  been  requested 
(known  via  the  options  processor  call) , the  LISTING2  file 
(OUTPUT2)  is  opened.  If  any  of  the  OPENS  on  OUTPUT2, 
PROGRAM,  or  OUTPUTO  fails,  a 100  abend  is  forced. 


9.2.7  Initial  Compiler  Phase  Execution 

The  loading  of  Phase  I of  the  compiler  is  performed  in 
much  the  same  manner  that  is  explained  by  McKeeman  et.  al. 
for  the  standard  XPL  submonitor;  however,  the  HAL/S  compiler 
requires  that  certain  common  information  be  retained  in  core 
for  passing  of  data  between  phases.  The  resulting  layout  of 
a phase  of  the  compiler  in  core  memory  is  shown  in  Figure 
9.2.2.  It  differs  from  the  standard  XPL  layouts  in  that  a 
COMMON  area  exists  which  remains  in  core  between  phases  (as 
does  the  submonitor) . This  COMMON  area  must  be  the  same  for 
each  phase^  which  references  it.  The  length  of  the  COMMON 
area  may  be  zero.  It  also  differs  from  standard  XPL  layout 
in  that  the  local  descriptor  area  appears  before  the  code 
area  instead  of  following  it. 


The  submonitor  has  been  modified  to  obtain  and  | 

initialize  this  COMMON  area  from  the  XPL  object  code  for  the  f 

compiler.  ^ From  the  compiler's  object  code,  the  submonitor 
obtains  information  about  the  size  of  COMMON  and  entities  I 

called  common  array  initialization  pairs.  These  pairs  are  I 

two  fullwords,  the  first  of  which  is  an  offset,  the  second 
of  which  is  a pointer  value.  For  Phase  I,  COMMON  is  1 

initially  zeroed,  then  for  each  initialization  oair,  the  il 

pointer  value  is  stored  at  the  relative  of fset" f rom  the  ) 

start  of  COMMON.  ? 


9.2.8  The  Linking  Process 

In  addition  to  this  COMMON  area,  a phase  of  the 
compiler  may  generate  certain  strings  which  should  be  oassed 
to  the  next  phase.  These  strings  reside  in  the  free  string 
area  and ^ their  descriptors  in  a GETMAINed  area  of  core. 
These  strings  must  be  retained  during  the  process  of  loading 
the  next  pnase.  This  is  impossible  to  do  with  the  standard 
XPL  suomonitor  and  tne  liAL/S  submonitor  has  been  upgraded  to 
provide  this  service,  henceforward  referred  to  as  linking. 

^ An  ^ area  in  COfWOW  known  as  descriDtor-descriptor 
(DESCDESC)  contains  the  information  necessary  for  passing  of 
COMMON  strings.  A layout  of  DESCDESC  and  its  associated 
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Lower  core 


data  is  shown  in  Figure  9.2.3. 


When  a phase  is  done  processing,  it  sets  the  second 
element  of  DSSCDESC  to  zero,  indicating  that  no  local 
strings  exist  and  calls  the  XPL  COilPACTIFY  routine  (provided 
by  the  XPL  compiler  with  each  phase).  The  result  of  this 
call  is  a compressed  set  of  string  data  in  the  free  string 
area.  A submonitor  service  request  to  link  is  then  issued. 
This  request  has  as  its  parameters 

-the  address  of  DESCDESC 

-the  start  of  the  COMWON  strings 

-the  top  of  core 

(top  of  core  is  passed  as  a parameter  since  this  may  change 
as  a result  of  compiler  dynamic  allocation  of  buffers, 
etc . ) . 

The  submonitor  then  proceeds  to  move  the  COMMOl'l  strings 
to  the  top  of  core.  Loading  of  the  next  phase  is  done  as 
with  Phase  I and  the  COMMOW  strings  are  moved  back  to  the 
start  of  the  free  string  area.  This  three  step  process  is 
illustrated  in  Figure  9.2.4.  The  offset  between  the  previous 
location  of  the  COMMON  strings  and  their  new  location  is 
computed  and  this  offset  added  to  each  of  the  descriptors. 
The  result  is  that  through  DESCDESC  the  newly  loaded  phase 
may  access  the  COMMON  strings  produced  by  the  previous  phase 
in  its  own  free  string  area. 


9.2.9  Returning  to  OS 

When  control  is  finally  returned  to  the  submonitor 
after  completion  of  all  the  phases,  the  submonitor  saves  the 
return  code  of  the  XPL  program,  gives  memory  back  to  OS, 
deletes  the  current  options  processor,  closes  all  files, 
restores  the  old  interrupt  exit  routine  and  returns  to  OS. 


9.3  As  a Co-routine 

There  is  an  ENTRY  entry  in  the  submonitor  which  is 
called  for  various  services  requested  by  the  HAL/S  compiler 
during  the  execution  of  a particular  phase.  Various  XPL 
constructs  are  recognized  as  being  calls  to  this  entry  with 
a specified  service  code  dependent  upon  the  XPL  construct. 

Table  9.3.1  gives  a list  of  the  service  codes,  their 
interpretation,  and  an  example  of  the  XPL  construct  which 
invokes  the  service  routine.  On  the  basis  of  the  request 
code,  the  submonitor  branches  to  a subroutine  which  oerforms 
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Interpretation 
Sequential  string  input 
Sequential  string  output 
Return  line  count 
Set  line  count  limit 
Force  immediate  exit 
Return  time  & date 
Unused 

Link  to  next  phase 

Return  parameter  field 

MONITOR 

Unused 

Unused 

Read  from  FILEl 
Write  to  FILEl 
Read  from  FILE2 
Write  to  FILE2 
Read  from  FILE3 
Write  to  FILE 3 
Read  from  FILE4 
Write  to  FILE4 
Read  from  FILE5 
Write  to  FILE5 
Read  from  FILE6 
Write  to  FILE6 

Table  9.3.1 

ENTRY  Service  Dispatch 


<string>=INPUT (I) ; 

OUTPUT (I) =<string>; 
<variable>=LINECOUNT; 

CALL  SET_LINE_LIM ( <value  > ) ; 

CALL  EXIT; 

<vari4ble>=  TIME; 
<variable>=  DATE; 

CALL  LINK; 

<string>=PARM_FIELD; 

CALL  MONITOR (<parm>) ; 


<variable>=FILE (1 / I) ; 
PILE (1,1) = <var iable> ; 
<variable>=FILE (2 , I) ; 
FILE  (2,1)  ==<var  iable> ; 
<variable>=FILE(3,I) ; 
FILE (3 , I) =<variable> ; 
<variable>=FILE (4 , I) ; 
FILE (4,1) =<var iable> ; 
<variable>=FILE (5 , I) ; 
FILE ( 5 , I) =<variable> ; 
<variable>=FILE (6 , I) ; 
FILE (6,1) =<variable>; 


't  »- 
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llltronrill  ^np?L.!° 

Each  of  these  services  is  now  discussed. 


9.3.1  Sequential  String  Input  (GET) 

inout™bv  = sequential  sttinq 

input  by  the  HAL/S  compiler.  It  has  as  its  value  the  strina 

thr^^^L^b^rLt''"  selected  !:? 

1=1  2 3 4 5 6 pseudovariable  (INPUT(I)  , 

tn  -V  ' supplied  by  the  HAL/S  compiler 

to  tne  submonitor  for  this  service  are  the  pointer  to  th- 

the  index^^iidirl^^  a*^ea  (FREEPOINT)  and 

reaue-t^"  submonitor  is  entered  with  an  INPUT  service 

supplied  is  a the  file  number 

1400  ah«n5  M r "°t,  the  submonitor  forces  a 

cuSrpnMv  submonitor  checks  whether  the  dataset 

oarhiMiL^  associated  with  the  specified  file  is  a 
partitioned  or  sequential  one. 


If 

submoni 
closed . 
the  f i 
receivi 
the  fi 
forces 
the  fi 
file, 
immedia 
compile: 
submonii 
returns 
moved  1 
pointer 
descr ipl 
is  then 


13  sequentially  organized,  the 

Thic:'  if  the  file  has  been  permanently 

.This  condition  would  occur  if  the  compiler  opened 
■le  and  subsequently  closed  the  file,  e.g.  after 
■ng  an  end  of  file  indication  from  the  submonitor.  If 

a permanently  closed,  the  submonitor 

a 120L  abend.  The  submonitor  then  checks  to  see  that 

Tf  ^ho  fact  open.  If  not,  it  attempts  to  open  the 

the  submonitor 

r indication  to  the 

^nr  r.  determined  that  the  file  is  open,  the 

th-  ^ddr!L  %-  mode  GET  macro.  This  macro 

t-n  ot  tne  next  input  record.  This  record  is 

moo  ^*^*^^'^':3_area  as  indicated  by  the  FREEPOINT 

tor  service  call,  a string 

along  with  an  updated  FREEPOINT 

returned  to  tne  HAL/S  compiler. 


FREEPOINT 
A string 
FREEPOINT 


submoJitoJ^  fir^^  1 °,‘'ganization  IS  a partitioned  one,  the 
submonitor  ^ecks  to  see  that  the  file  is  in  fact 

nartifioLa  ' . ® submonitor  forces  a 2100  abend  since 

performed  after  a FIND  service 


been  issued 


find  leaves  the  DCB 


rpmiocf-  !-,:=c7  t ciuci.  d r j iNo  service 

statr  Tor  in  an  open 

state.  The  suomonitor  then  checks  to  see  v/hether  the  input 

contains  any  records  whLh 
WPAO  P'^oc^ssed.  If  not,  the  submonitor  issues  a 

READ  macro  and  a CHECK  macro  on  the  file  specified  tHp  novt- 
record  Is  then  dnoved  to  the  free  stri^g^rSras  f^RcaLd 
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FREEPOINT  and  the  buffer  pointer  is  updated  to  indicate  that 
one  more  record  has  been  processed.  A string  descriptor  to 
the  new  record  along  with  an  updated  FREEPOINT  is  then 
returned  to  the  compiler. 


9,3.2  Sequential  String  Output  (PUT) 


The  OUTPUT  pseudovariable  is  used  for  string  output  by 
the  HAL/S  compiler.  A descriptor  of  the  string  to  be  output 
and  an  index  specifying  the  output  file  selected  (I  in 
OUTPUT(I))  are  passed  to  the  submonitor  as  arguments. 

In  order  to  simplify  printed  processing#  the  submonitor 
adopts  some  arbitrary  conventions.  If  the  file  specified  is 
OUTPUTO#  the  submonitor  automatically  appends  a carriage 
control  character  of  blank  (EBCDIC  HEX'40')  to  the  beginning 
of  the  string  to  be  output. 

If  OUTPUTl  is  specified#  the  submonitor  assumes  that 
the  compiler  has  supplied  a carriage  control  character  as 
the  first  character  of  the  string  to  be  output.  In  addition 
to  the  standard  FBA  type  control  characters,  the  characters 
*H*  and  '2'  have  special  meaning  to  the  submonitor.  These 
characters  indicate  a heading  line  and  a subheading  line 
respectively. 

Both  OUTPUTO  and  OUTPUTl  have  associated  with  them  page 
processing.  (They  actually  refer  to  the  same  output  file 
(SySPRINT)  but  imply  different  carriage  control  processing) . 
This  processing  includes  keeping  track  of  the  number  of 
pages  which  have  been  output  and  forcing  a 600  abend  if  the 
page  count  limit  is  exceeded.  It  also  includes  keeping  track 
of  the  number  of  lines  printed  so  far  for  a page  and  issuing 
a page  eject  with  appropriate  heading  and  subheading  lines 
if  any  are  specified. 


On  output  files  two  through  eight  (OUTPUT2#  OUTPUTS#  . 
. . OUTPUTS) # the  submonitor  assumes  that  no  carriage 
control  and  no  page  processing  is  required. 

In  all  cases#  the  submonitor  assumes  that  any  strings 
less  than  the  record  length  of  the  dataset  associated  with 
the  file  are  to  be  padded  with  blanks  to  the  record  length 
and  that  any  strings  of  length  greater  than  that  record 
length  are  to  be  truncated  to  that  record  length  and  only 
that  remaining  part  output. 

When  the  submonitor  is  entered  with  a sequential  string 
output  request#  it  first  checks  to  see  that  the  file  is  a 
valid  one.  If  not#  the  submonitor  forces  a 900  abend.  If  the 
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file  ia  Veil  id,  the  subironitor  then  checks  to  see  whether  the 
oataset  associated  with  the  file  has  a partitioned  type  of 
organization . 

If  the  dataset  organization  is  partitioned,  the 
submontior  checks  to  see  that  the  file  is  open.  If  not,  it 
issues  an  OPISi'.]  aiacro  on  the  file.  If  the  OPEN  macro  returns 
a failure  indication,  the  submonitor  forces  an  1800  abend. 
Having  determined  that  the  file  is  open,  the  submonitor 
issues  a GETBUF  macro  which  returns  a buffer  address.  The 
buffer  is  used  to  accumulate  individual  lines  (logical 
records)  into  one  physical  record  (8LKSIZE) . Logical  records 
are  moved  into  the  buffer  for  each  OUTPUT  request,  padded  or 
truncated  to  LRECL  as  necessary.  If  the  buffer  is  full, 
WRITE  and  CHECK  macros  are  issued  and  the  buffer  pointer  is 
set  back  to  the  start  of  the  buffer  in  preparation  for 
re-filling. 

IC  the  dataset  is  sequentially  organized,  the 
submonitor  first  cnecks  that  the  file  has  been  opened.  If 
not,  the  submonitor  attempts  to  open  the  file.  If  the  OPEN 
attempt  fails,  the  submonitor  forces  an  800  abend.  Having 
determined  tnat  the  file  is  open,  the  submonitor  issues  a 
PUT  macro  in  locate  mode.  The  PUT  macro  returns  the  address 
of  the  next  output  buffer.  The  submonitor  moves  the  string 
to  tiiis^  output  buffer  area,  performing  any  necessary 
manipulations  on  the  string  as  described  by  the 
aforementioned  conventions. 


9.3.3  Current  Line  Count 

The  HAL/S  compiler  may  request  the  current  line  count 
for  the  page  on  SySPRINT  (OUTPUTO  and  OUTPUTl) . The 
submonitor  merely  returns  the  value  it  currently  has  in  its 
local  data  area. 


9,3.4  Settim  SYSPRINT  Lines  per  Page 

When  a SET_LINB_LIM  call  is  issued  by  the  compiler,  the 
inonitor  service  routine  called  stores  the  value  passed  into 
its  LINE’LIi'l  location  in  its  local  data  area. 


9.3.5  Forcing  an  Immediate  Exit 

If  at  any  .point,  the  compiler  has  enough  information 
(or  lack  thereof)  to  determine  that  there  is  no  hope  in 
continuing  processing,  it  may  CALL  EXIT,  which  forces  a 4000 
abend  and  a dump  if  the  DUi-lP  ootion  was  specified  an.d  a 


9-15 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


SysUDUMP  DD  card  had  been  provided. 


9.3.6  Obtaining  TIME  and  DATE  Information 

When  a TIME  or  DATE  request  is  issued  by  the  compiler, 
the  submonitor  invokes  a binary  TIME  macro.  The  time  is 
returned  as  is.  The  date,  returned  by  the  TIME  macro  in 
packed  decimal  form  is  converted  to  binary  and  returned.  The 
compiler  itself  saves  whichever  of  the  results  is  desired. 


9.3.7  Linking 

This  service  request  is  described  in  Section  9.2.8. 


9.3.8  FARM  Field  Accessing 

The  HAL/S  compiler  may  request  from  the  submonitor  the 
string  which  is  the  FARM  field  received  from  OS.  The 
submonitor  moves  the  string  into  the  free  string  area, 
builds  a descriptor  to  that  string  and  updates  FREEPOINT. 
The  new  descriptor  and  new  FREEPOINT  are  returned  to  the 
compiler.  If  no  FARM  field  exists,  a null  descriptor  is 
returned. 


9.3.9  The  Monitor  Cali 

The  monitor  call  provided  by  the  XPL  language  is  a 
.means  through  which  the  capabilities  of  the  XPL  system  may 
be  extended  without  requiring  changes  to  the  XPL  compiler. 

The  HAL/S  sul  onitor,  upon  receiving  a monitor  service 
roqueot,  essentially  invokes  a monitor  within  a monitor.  At 
least  one  parameter  is  provided  and  it  is  interpreted  as  the 
MONITOR  service  request.  The  current  service  codes  and  their 
interpretation  by  the  MONITOR  call  are  described  in  Section 
X 3 • 3 • 


9.3.10  Direct  Access  Input  and  Output  (READ  and  WRITE) 

Direct  access  input  and  output  is  performed  by  the 
compiler  for  work  areas  used  for  temporary  and  intra-phase 
communication. 

When  the  compiler  issues  an  input  request  on  such  a 
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direct  access  f ile , the  appropr iate  service  request  is 
issued,  passing  the  record  nu.nber  and  the  address  of  the 
jiiemory  location  into  which  the  record  is  to  be  placed.  The 
submonitor  first  checks  to  see  that  the  specified  file  is 

submonitor  issues  an  OPEN  macro.  If 
■ le  OPEN  IS  not  successful,  the  submonitor  forces  a 2000 
abend.  Having  determined  that  an  open  file  does  exist  for 
access,  the  submonitor  checks  to  see  whether  the  file  is  on 
magnetic  tape.  If  not,  it  forms  the  TTR  address  of  the 
record  desired.  The  submonitor  then  issues  a POINT  macro,  a 

READ  macro,  and  a CHECK  macro  on  the  file.  It  then  returns 
to  the  compiler. 


When  the  compiler  issues  an  output  request  for  a direct 
tile,  the  appropriate  service  request  is  issued  with  the 
record  number  and  the  address  of  the  variable  to  be  output 
as  paraineters.  The  submonitor  processing  for  direct  access 
similar  to  the  processing  for  the  direct  access 

request  except  that  the  READ  macro  is  replaced  by  a 
WRITE  macro.  c,  y a 


9 • 4 OS  -Accessible  Code 

There  exist  pieces  of  code  in  the  submonitor  which  are 
directly^^  ^ *2°‘Tpiler  nor  the  submonitor  but  by  OS 

One  of  these  is  an  interrupt  exit  routine  for  floating 
point  overflow  and  underflow.  These  interruots  may  occur 

during  toe  process  of  compile  time  computations.  (See 
Section  9.2.4) 


Ob  provides  for  an  exit  routine  to  be  used 
of  an  OPEN  on  a DC8.  The  HAL/S  submonitor 
supplying  default  values  for 


in  the  event 
takes  care  of 


1 )  Block  Size 


2)  Record  Length 

3)  Number  of  buffers 

4)  Record  Format 


when  these  attribute 


s remain  unspecified  after  the  OPEN. 


in^Table^L4!r  defaults  provided.  These  are  listed 


9 . 5 Error  Handling 
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i ! 

i ; -■# 

i' 


DEFAULT 

BLKSIZE 

LRECL 

BUFNO 

RECFM 

1 

.1680 

80 

1 

FB 

2 

3458 

133 

2 

FBA 

3 

400 

80 

1 

FB 

■ j" 

4 

1680 

1680 

0 

FB 

* 

5 

3458 

133 

1 

FBM 

6 

256 

256 

1 

U 

Table  9.4.1 
Compiler  DCB  Defaults 
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■ 


In  general,  any  error  condition  de 
suomonitor  results  in  abnormal  termination 
through  execution  of  an  ABEMD  macro.  A list 
and  their  interpretation  may  be  found  in  thp 
i^anual.  Appendix  F.  The  abend  processing 
relevant  general  registers  and  attempts 
oefore  executing  the  ABEND  macro.  A dump  is  i 
the  same  conditions  as  described  in  Section  9 


^tected  by  the 
1 of  the  program 
of  abend  codes 
HAL/S-350  Users 
routine  saves 
to  close  files 
performed  under 
.3.5. 


9.6  Flowcharts 


this  section  contains  program  flow 
Jrta  describing  tne  operation  of  the  submonitor. 


In  the  flowcharts,  a large  rectangle  represents  a 
transf^J""  ° represents  condition^ 

Jodr^of’  rectangle  represents  a location  in  the 

, . suomonitor.  An  arrow  into  such  a rectan^jle 

implies  transfer  of  control  to  that  location.  An  arrow  out 
iLation.^  rectangle  denotes  the  point  of  definition  of  that 
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Issue  OPEN 
on  LISTING2 


YES  ^^OPEN  \ 
-—'^successful? 


GROUPl 


Move 

DEFAULTl  to 
DEFAULTS 


GR0UP2 


Move 

DEFAULT2  to 
DEFAULTS 


GROUPS 


Move 

DEFAULTS  to 

defaults 


GR0UP4 


Move 

DEFAULT4  to 
DEFAULTS 
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ENTRY 


I Save  registers 
and  set  up 
addressability 


^/Valid 

^ervice 

^S^code?^ 
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GET 


Valid 


input  file 


PDS? 


Save  registers 
0*2  and  load 
abend  code  1400 


[no 

PDS READ 

INERR 

permanently 
sclosed?  V 


INE0D2 


Move  characters 
to  free  string 
area  as  indi- 
cated by 
FREEPOINT 


Issue  OPEN 
on  speci- 
fied file 


uccessful? 


Build  nev; 
descriptor  . 


Compute  new 
FREEPOINT 


Issue  GET  in 
locate  mode 


PCLOSE 


Return  new 
FREEPOINT  and 
built  descrip- 
tor 


N 


O 


PAD-rccord 
length  - 
string 
length 


Issue  a 
CHECK  on 
file 


Null  ^ 
string? 


NULLV7RT 


PAD  < 0? 


PAD  = 0? 


PAD  > 0? 


FILLENG  4- 
PAD 


MOVEREC 


% 


j 


ZEROMEM 


CORELEFT 


Compute  # 
doublewords 
to  clear 


aoubleword^ 


/V7as\ 
y^that 
last  double^ 
'^Xi^ord? 


Return  to 
caller 


/^Module  > 
name  sped 


Return  exist- 
ing option 
parms 


Issue  DELETE 
on-  old 
options 
processor 


Obtain  new 
options 
processor 


Save  registers 
0*-2  and  load 
abend  code  2600 


Issue  LOAD 
on  the  new 


Load  up  parm 
field  address 
and  call  loaded 
options  proces- 


Save  new  op- 
tions parm 
and  return 
it  to  XPL 


rEPRODXJCBIUTY  ' 

»AL  PAT^B  IS 


OF® 

I -pnr\-v 
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10.0  REAL  TIME  EXECUTIVE 


10.1  Design  Overview 


10.1.1  HAL/S-360  Real  Time  Implementation  Summary 

a)  The  HAL/S-360  real  time  package  is  implemented 
as  a "self  contained"  system  which  executes  as 
a single  task/job  step  under  OS-360.  A load 
module  is  created  by  a "HAL  Link  Step"  using 

the  360  linkage  editor.  The  load  module  contains 
all  HAL/S  compiled  program/tasks,  external 
procedures,  and  compool  blocks  which  are  pertinent 
to  the  run,  together  with  a collection  of  run  time 
routines.  This  load  module  or  HAL/S  system  is  then 
loaded  and  executed  under  OS  as  a single  task. 

b)  All  HAL/S  process  management  functions,  that  is 
control  over  the  scheduling  and  dispatching  of 
HAL/S  program  and  task  blocks,  are  implemented 
through  HAL  run  time  routines.  The  HAL/S  real 
time  control  statements  (i.e.  SCHEDULE,  TERMINATE, 

WAIT,  CANCEL,  SIGNAL)  are  interfaced  from  the 
conipiler  directly  to  HAL/S  run  time  routines  and 
not  to  OS-360.  The  HAL/S  run  time  routines  utilize 
internally  defined  process  queues.  The  process 
states  and  state  transitions  are  controlled  by 
HAL/S  compiler  run  time  routines.  The  compiler 
generates  "branch  and  link"  commands  to  the 
appropriate  HAL/S  routine  to  implement  execution 

of  its  real  time  statements.  All  HAL/S  event 
tables,  event  queues  and  the  processing  of  event 
expressions  are  performed  by  HAL/S  run  time 
routines.  There  is  no  interaction  with  OS-360 
for  servicing  event  variables. 

A timer  queue  and  HAL/S  process  interaction  with 
timed  events  is  controlled  by  HAL/S  run  time 
routines.  The  logical  implementation  of  these 
routines  is  presented  in  later  sections  of  this 
chapter. 

c)  OS-360  control  and  OS  task  interaction  is  limited 
to  supervision  of  the  HAL/S  system  load  module. 

It  is  unaware  of  the  existence  of  multiplicity 
of  HAL/S  processes  and  queues. 

: ' In  summary,  HAL/S  interacts  with  OS-360  only  at  the 

"HAL/S  load  module  level"  or  system  level  as  a single 
- OS  task  and  not  at  the  statement  level  or  HAL  program/ 

(}\  task  block  level  (i.e.  a HAL  process)  . 

' - ^ 

10-1 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


d) 


e) 


implementation  does  not  execute  in 
tained  in  ..„achinl  un^is  “y^L^/rrSnlTL^JoS^JS^e 

statement  for  a specific 

the  compiler  inserts  "hooks"  between 

reLJdina^S^''^  ® statement  to  enable 

I variables,  implementation  of  diagnostics 

iisTe  hIl/S-SIo  fu?S?iois!' 

inese  HAL/S-360  hooks  may  be  used  to  interface  to 

an  external  simulation  facility  to  enable  Shuttle 

avxontcs  environment  updates  aL  dlJg^osWos 

statements  ON  s SEND  are  implemented 

^°^tines.  OS-360  is  utilized  only  to 
trap  some  3.60  error  conditions.  Process  reart 
or  termination  is  accomplished  via  HAL  run  time  software. 

10.1.2  HAL  System  Load  Module 

on  the  3to^!rSLsSaterifF^gurf  10-?  °''?hf  Sal/?'' 

system  for  the  IBM  3fin  i =.  HAL/S  run  time 

control.  HAL/S  source  statements  ^ single  task  under  OS-360 

compilable  units  linked  together  into  a°sliilf 

load  module  and  executed  at  a aingjrjSb  sSIp  tfskf  " 

blocks  fo^®e“h  SmpnaMe‘^unit“aJ  of  the  code  and  data 

together  with  a collecSoS  Sf  mb  rSr?W^?- 

built-in  functions,  and'roJtLSr^rjm^llm^nrth^Hirrea!^  • 
statements.  On  the  360  this  is  termed  thr^mi  rn^hr 

these*'iSlL"rSn  timrjoutlSs^ti' e oJ®  “"'3  l°9iP 

in  this  chapter  (i-e.  process  management)  is  described 


f) 


4 


10-2 


INTERMETRICS  incorporated  . 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  03138  • (617)  661-1840 


Am 


Sii3SnH3VSSVl^-’30aia9Mo"  • 3hN3AV  aaoONOO  lO/  • a3iVbOdyOONI  SOIdi3V^y3iNI 

C-OT 


10.1.3  HAL/S  Process  Management  & Control 

Processing  is  controlled  by  the  HAL/S  Process  Manager. 

It  controls  the  execution  of  all  processes  in  the  process 
queues  by  giving  control  to  the  processes  which  are  ready 
for  execution  on  the  basis  of  priority.  The  highest  priority 
ready  process  is  given  control. 

Processes  are  scheduled  for  execution  by  other  processes. 
They  are  inserted  into  the  process  queues  by  the  executxon  of 
a HAL/S  SCHEDULE  statement.  Processes  may  be  scheduled  for 
execution  by  several  options; 

a)  Scheduled  at  a particular  time. 

b)  Scheduled  at  a particular  event  or  combination 
of  events. 

c)  Scheduled  immediately. 

The  scheduler  may  also  be  requested  through  the  options 
of  the  HAL/S  SCHEDULE  statement  to  continue  execution  of  a 
process  on  a time  iterative  or  cyclic  basis  and/or  until  a 
particular  event  or  time  condition  is  met. 

A process  is  allocated  the  CPU  on  the  basis  of  priority 
and  remains  running  until:  a)  it  is  completed;  b)  it  voluntarily 
releases  the  CPU  by  entering  a wait  state;  or  c)  it  reaches  a 
point  where  a higher  priority  process  is  ready  to  execute. 


10.1.4  Process  State  Transition 

A simplified  version  of  the  transition  of  process  states 
and  their  conditions  is  illustrated  in  Figure  10-2.  Processes 
are  scheduled  into  either  the  wait  or  ready  state  depending 
on  the  conditions  supplied  in  the  statement.  A waiting  process 
is  placed  into  the  ready  state  only  after  the  condition  it  was 
waiting  for  occurs.  Once  a process  is  in  the  ready  state  it  xs 
allocated  the  CPU  on  the  basis  of  priority  by  a "process 
selector"  function.  The  selector  is  entered  at  the  end  of  a 
process,  at  a swap  point  (if  a higher  priority  process  exists) 
or  if  a process  voluntarily  removes  itself  from  the  running 
state  via  a WAIT  statement.  Only  one  process  can  be  in  the 
running  state,  and  it  remains  running  until  it  ends,  or  issues 
a WAIT,  or  a higher  priority  ready  process  exists. 

A process  may  be  completed  and  its  PCB  removed  from 
the  qudue  from  any  of  these  states. 
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iNTERMETRICS  INCORPORATED 


10.1.5  The  Process  Control  Block  (PCB) 

A PCB  is  an  element  in  the  process  priority  queue.  It 
is  associated  with  a single  process.  It  is  inserted  into  the 
queue  when  a process  enters  an  active  state  (i.e.  when  it  is 
scheduled)  and  is  removed  from  the  queue  when  the  process  is 
terminated. 

Each  PCB  is  fixed  in  size  but  the  number  of  PCB''s  on 
the  queue  varies.  The  method  of  PCB  allocation  is  to  create, 
initialize,  and  place  on  a "free  PCB"  queue  the  maximum  number 
of  PCB's  ever  required. 

The  information  required  in  a PCB  is  illustrated  in 
Figure  10-3  and  described  functionally  below. 

a)  Priority  Queue  Linkage 

This  field  contains  a pointer  to  the  next  PCB 

in  the  priority  queue. 

b)  Priority 

Process  priority  assigned  in  SCHEDULE  statement.  j 

c)  Process  State  Information 

This  field  contains  the  following  information: 

• READY/WAIT  - Is  process  ready  for  execution? 

• WAIT  ON  DEPENDENT  PROCESS  - Is  process  waiting 
for  dependents? 

• INTER-CYCLE  WAIT  - Is  process  cyclic  and 
between  cycles? 

• INITIATED  - Has  process  begun  execution  (at 
least  once  if  cyclic)? 

• CANCELLED  - Is  process  to  be  terminated  at  the 
end  of  its  current  cycle  (if  cyclic) , i.e.  has 

a CANCEL  statement  been  issued  for  this  process? 

d)  Task/Program 

Is  process  a task  or  program? 

e)  Entry  Address 

Pointer  to  the  program  entry  for  this  process. 
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Figure  10-3 

CONTROL  BLOCK  (PCB)  INFORMATION 


PRIORITY  QUIJUE  LINKAGE 


PRIORITY 


PROCESS  STATE  INFORMATION 


TASK/PROGRAI-4  FL?\G 


ENTRY  ADDRESS 


PROCESS  DEPENDENCY  LINKAGE 
(FATHER,  SON,  BROTHER) 


CYCLIC  CONTROLS 


SAVE  AREA 


LAST  ERROR  GROUP  CODE 


LAST  ERROR  NUMBER  CODE 


f)  Process  Dependency  Linkage 
This  field  contains: 

• Pointer  to  PCS  of  father  process  (a  null 
pointer  indicates  an  independent  program 
process) . 

• Pointer  to  PCB  of  one  son  process  (a  null 
pointer  indicates  a process  with  no  dependent 
processes) . 

• Pointer  to  next  PCB  in  a chain  of  "brother" 

PCB's. 

g)  Cyclic  Controls 
This  field  contains: 

• CYCLIC  - A flag  indicating  whether  or  not  the 
process  is  cyclic. 

• TYPE  - This  indicates  whether  the  cyclic  type 
is  REPEAT  AFTER,  REPEAT  EVERY,  or  immediate 
(from  SCHEDULE  statement) . 

• VALUE  - A scalar  indicating  inter-cycle  wait 
time  if  TYPE  is  AFTER  or  complete  cycle  time 
if  EVERY. 

h)  Save  Area 

This  field  is  for  the  process  stack  pointer  which 
is  used  to  save  and  restore  the  machine  environment 
across  process  swaps. 

i)  Last  Error  Group  Code 

This  field  saves  the  information  returned  by  the  ERRGRP 
built-in  function. 

^ ^ Last  Error  Humber  Code 

This  field  saves  the  information  returned  by  the  ERRNUM 
built-in  function. 
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10.2  Mechanization  and  Structure  of  HAL/S-360  Real  Time 


Th^  purpose  of  this  section  is  to  describe  the  overall 
structure  and  control  of  the  HAL/S-360  run  time  system. 

Figure  10-4  illustrates  the  organization  of  the  system. 

There  are  basically  four  major  sections; 

1)  A HAL/S  Start  Routine  which  gains  control  from 
OS-360  and  initializes  the  HAL/S  run. 

2)  A HAL/S  Process  Manager  which  performs  the  selec- 
tion (dispatching)  and  initiation  of  all  HAL/S 
processes  in  the  process  queues.  It  is  the  central 
control  element. 

3)  A HAL/S  statement  processor  which  is  invoked  after 
execution  of  each  HAL/S  statement.  It  performs  a 
series  of  functions  at  each  statement  such  as;  up- 
dating simulated  clocks,  checks  for  higher  priority 
processes,  determines  when  a process  swap  is  required 
and  performs  tracing  and  diagnostics  when  required. 

4)  A set  of  HAL/S  process  management  service  routines 
which  are  called  by  the  process  on  the  execution 
of  a SET,  RESET,  SCHEDULE,  CANCEL  TERMINATE<ID> , 
SIGNAL  event  statements. 

As  an  overview,  a process  is  given  control  by  the  process 
manager  when  it  is  the  highest  priority  ready  process.  During 
execution  it  calls  the  HAL/S  statement  processor  after  each 
statement.  It  keeps  track  of  time  and  diagnostic  requests.  A 
process  may  schedule,  cancel,  or  terminate  other  processes 
during  execution.  This  is  done  by  the  compiler  inserting  code 
to  call  the  appropriate  HAL/S  process  service  routine. 

Details  of  the  interfaces  between  the  compiler  and  the 
process  service  routines  are  given  in  the  HAL/S-360  Compiler 
System  Specification  (IR  #60-4) . 


When  a process  executes  a wait  or  terminate  (self)  state- 
ment it  results  in  a process  swap  and  the  appropriate  action 
is  taken  for  updating  the  PCB  entry. 

A process  continues  to  run  until  it  either  ends  normally 
or  executes  a CLOSE  or  RETURN  statement.  At  this  point,  the 
process  manager  selects  the  next  ready  process. 

The  process  manager  completes  the  run  when  all  queues 
are  empty.  If  an  abnormal  error  condition  occurs,  it  causes 
the  run  to  be  aborted. 


10-9 

INTERMETRICS  INCORPORATED  ■ 701  CONOORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • 


(617)  661-1840 


Figure  10-4, 

OVERVIEW  OF  CONTROL  AND  DYNAMIC  STRUCTURE 
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10.2.1  HALSTART  Routine 


4--  HAL/S  system  load  module  is  given  control  hv 

oSfa  various  initialization  funotioAs.  if^llnts 

through  JCL  FARM  lieW  lI"es/pagerohannlr#"?ir 

system  messages,  i of  errors  before  abo?t  aeCging  Stions 
It  also  issues  SPIE  and  STAE  macros  to  trlrp^oSram 
interrupts  and  abnormal  abort  (ABEND)  conditions. 


and  continues  execution  The  STAE  macro  • required 

exit  routine  address  which  printfMrunHAL“a-‘’  *° 

tion  before  OS-360  terminatL  thi  ^ aiagnostic  informa- 


HALSTART  must  initiate  the  nm  T-t-  • 1- 

scheduling  the  "initial  HAL  process"  tA  esLwish  ^hJ  first 
entry  in  the  queues.  HALSTART  then  calls  the  Process  Manager. 


10.2.2 


HAL/S-360  Process  Manager  - DISPATCH 


the  function  which  controls 

ready  for  execution  I i whxch  chooses  a process 

ThS  and  no?Sareid''of®p?Less°LecStioi° 

services.  ^ ‘ application  process  control 


P^oc^L^nrf  f ILlrSStl"-  isif  itl^  S%\ose 

l^ocff  fScinf an  jntir^^''^  3ecr Ament infS  ALulated 

to  enter  a ready  state  and  if  not?\Ae  Hhi/S^Slf f f Ifendld?''®®^ 


In  general,  there  may  be  more  than  one  ready  process, 
so  the  choice  is  based  on  priority;  i.e.  the'  relative  importance 
of  the  various  ready  processes,  represented  by  the  relative 
order  of  PCB's  on  the  priority  queue. 

After  the  selector  picks  a process,  it  either /uses 
the  resume  information  (save  area)  in  the  PCB  to  restart  the 
process  at  its  suspended  or  swapped  point,  or  it  initiates 
the  process  at  its  beginning  if  it  has  not  yet  executed. 

Figure  10-5  indicates  that  the  selector  starts  at  the 
top  of  the  queue  when  looking  for  the  first  ready  process. 

If  the  selector  was  entered  because  a process  entered  the  wait 
state,  search  time  is  considerably  reduced  if  the  selector  first 
checks  the  swap  flag.  If  it  is  not  set,  the  search  may  start 
with  the  next  process  on  the  queue  instead  of  at  the  top.  The 
swap  flag  is  set  whenever  a process  having  a higher  priority 
than  the  running  process  is  readied. 


10.2.2.2  Process  Initiator  (Figure  10-6).  The  process  initiator 
is  a routine which gets  control  from  the  process  selector  the 
first  time  a process  starts  executing.  The  program  or  task  which 
was  scheduled  as  a process  is  called  as  a subroutine  of  the  process 
initiator . When  the  program  or  task  executes  a RETURN  or  CLOSE 
at  its  highest  level,  control  comes  back  to  the  process  initiator, 
which  performs  the  following  functions: 

1)  Causes  the  process  to  wait  until  all  dependents 
have  terminated. 

2)  If  the  process  is  not  cyclic  or  is  a cancelled 
cyclic  process,  it  is  terminated  by  calling  the 
terminate  subroutine,  and  control  is  passed  to  the 
process  selector. 

3)  If  another  cycle  of  a cyclic  process  is  indicated, 
the  program  or  task  is  called  again,  after  possibly 
placing  the  process  into  an  inter-cycle  wait  state 
(every  or  AFTER,  options  from  SCHEDULE  statement) . 

If  the  cycle  type  is  AFTER,  the  timer  enqueue  routine 
is  called  to  start  the  AFTER  interval.  The  EVERY 
interval  is  set  up  once  when  the  process  initiator 
is  entered,  and  is  automatically  repeated  by  the 
timer  interrupt  routine. 
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Figure 
PROCESS  se: 


Figure  10-6 
PROCESS  INITIATOR 
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10.2.3  The  Process  Scheduler  - SCHEDULE 

The  Process  Scheduler  is  the  process  service  routine 
which  gets  control  when  a HAL  SCHEDULE  statement  is  executed. 

It  creates  a process  by  putting  a new  Process  Control  Block 
(PCB)  containing  the  proper  information  on  the  priority 
queue.  When  the  scheduler  returns  to  its  caller,  the  new 
process  is  either  in  the  ready  state  or  in  the  wait  state 
(if  the  AT,  IN,  or  ON  option  was  specified) . It  is  then 
the  dispatcher's  (i.e.  process  selector's)  responsibility 
to  give  it  control  at  a process  swap  point. 

The  options  to  the  SCHEDULE  statement  are  handled  by 
separately  testing  for  the  occurrence  of  each  one.  If  an 
option  is  specified,  the  appropriate  processing  is  performed. 
Sometimes  this  is  accomplished  by  a call  to  a system  routine 
such  as  the  event  enqueue  routine  to  set  up  an  event  expres- 
sion, or  to  the  timer  enqueue  routine  to  enter  an  interval 
in  the  timer  queue.  A parameter  is  passed  to  these  routines 
specifying  what  action  to  perform  (ready  or  cancel  the  process) 
when  the  requested  condition  (time  interval  expires  or  event 
expression  becomes  true)  occurs.  The  Event  Processor  is  called 
process  the  event  associated  with  the  program  or  task. 

Other  SCHEDULE  option  processing  is  done  local  to  the 
scheduler.  A specified  priority  is  assigned  by  setting  the 
priority  field  in  the  PCB  (used  to  determine  the  position  on 
the  priority  queue).  If  the  option  DEPENDENT  was  specified, 
the  scheduler  places  the  new  PCB  on  the  dependence  queue  of 
the  running  process. 

Parameters  to  the  scheduler  routine  are  listed  below: 

A)  OPTIONS: 

DEPENDENT 

initial  conditions  (none,  IN,  AT,  ON) 

PRIORITY 

REPEAT  options  (none,  EVERY,  AFTER,  REPEAT  with 

no  delay) 

cancel  condition  (none,  UNTIL<event  exp>, 

<UNTIL  time>,  WHILE<event  exp>) 

B)  LABEL  or  RUN-TIME  REFERENCE  - program  or  task 
entry  point  address. 

C)  TASK/PROGRAM  - is  process  a task  or  a program? 
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•r-  t: 

D)  WAIT  TIME  - (optional)  time  specified  in  AT  or  IN 
phrase. 

E)  CANCEL  TIME  - (optional)  time  specified  in  EVERY 
or  AFTER  phrase. 

F)  PERIOD  - (optional)  time  specified  in  EVERY  or 
AFTER  phrase. 

G)  WAIT  EVENT  EXPRESSION  - (optional)  pointer  to 
event  expression  structure  used  in  ON  phrase. 

H)  CANCEL  EVENT  EXPRESSION  - (optional)  pointer  to 
event  expression  structure  used  in  UNTIL  or  WHILE 
phrase. 

Functional  flow  of  the  scheduler  is  illustrated  in 
Figure  10-7. 


10.2.4  CANCEL  Process  Service  Routine 

The  CANCEL  statement  provides  a safe  way  to  terminate  , | 
a process,  avoiding  the  danger  of  half-results.  If  the  1 
process  has  not  yet  begun  execution  or  is  in  between  cycles  I | 
of  execution,  it  can  be  safely  terminated  by  immediately  | I 
calling  the  terminate  subroutine.  In  any  other  state,  however,  J | 
the  process  is  allowed  to  run  to  the  end  of  its  current  cycle.  ^ 1 
A non-cyclic  process  in  this  case  would  be, unaffected.  The  cancel  j I 
flag  in  the  PCB  is  Set  by  the  CANCEL  routine,  and  tested  by  the  ; i 
process  initiator  before  starting  another  cycle.  If  it  is  set,  ’ | 
the  processor  initiator  calls  the  terminate  subroutine.  See  ^ j 
Figure  10-8  for  a flowchart  of  the  CANCEL  Serivce  Routine.  i • 


10.2.5  TERMINATE 


The  TERMINATE  statement  allows  for  immediate  and 
unoonditional  termination  of  a process  and  all  its  dependents, 
Termination  involves  cleanup  of  pending  conditions  (time, 
event)  and  allocated  resources , and  removal  of  the  PCB  from 
the  priority  queue.  Since  these  actions  must  be  taken  for 
all  kinds  of  termination  (TERMINATE,  CANCEL,  RETURN,  CLOSE), 
a terminate  subroutine  is  used  to  carry  out  the  cleanup  work. 
The  TERMINATE  statement  service  routine  merely  locates  the 
PCB  address , checks  if  the  active  process  is  allowed  to 
terminate  the  specified  process,  then  calls  the  terminate 
subroutine . A flowchart  of  the  TERMINATE  Service  Routine 
appears  in  Figure  10-9. 
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SCHKDUI.I: 

Statomont 


Figure  10-7 
PROCESS  SCHEDULER 
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Figure 


10-9 


TERMINATE  STATEMENT  SERVICE  ROUTINE 


i ' 
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10.2.5.1  Terminate  Subroutine.  It  is  called  by  the  TERMINATE 

When  a cancel  condition  occurs  and  the 
LrSfn^  immediately  terminated:  CANCEL  statement 

service  routine,  event  processor,  and  timer  interrupt  routine 

iermtnaled"  functions  on  the  piocJSJ  ?o  bT  ' 

a)  Cancels  its  active  event  expressions  (found  by 
searching  the  event  queue) . 


b) 


Cancels  its  active  timer  intervals  (found  by 
searching  the  timer  queue) . 


c)  Frees  EXCLUSIVE  code  it  may  have  entered, 


d)  Frees  any  lock  groups  it  may  have  acquired  by 
entering  an  UPDATE  block. 

e)  Turns  its  associated  process  event  off. 

f)  Removes  and  frees  its  PCB  from  the  priority 
and  dependency  queues. 

g)  Terminates  all  its  dependents  in  an  identical 
manner . 

h)  Readies  the  father  process  if  it  is  waiting 
for  dependents  and  the  terminating  process  is 
its  last  dependent. 


i) 


Calls  the  event  processor  to  process  event 
expressions  involving  the  process  events  reset 
me). 


+-0  terminate  subroutine  may  cause  other  processes 

o become  ready  because:  1)  termination  may  satisfy  the  father 
dependency  wait;  2)  turning  the  process  event  off  may  satisfv 
a WAIT  FOR  or  SCHEDULE  ON  event  expression;  and  3)  freeina 

La  ff  wakSup  4 procisi  PCB, 

and.  If  It  has  a higher  priority  than  the  running  process  a ' 
process  swap  occurs  when  the  service  routine  ?eSLS  ?S  the 
process  or  to  the  process  selector.  rerurns  to  the 
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In  addition  to  causing  a process  to  be  made  ready,  the 
terminate  subroutine,  in  turning  off  the  process  event,  may 
cause  another  process  to  terminate  if  a cancelling  event  expres- 
sion is  satisfied.  The  terminate  subroutine  and  event  processor 
are  coded  to  avoid  recursive  calls  in  such  a situation. 


10.2.6  Event  Handling 

The  event  handling  system  of  process  management  carries 
out  the  signalling  of  events  are  performs  specific  actions  when 
logical  combinations  of  events,  called  event  expressions,  become 
ti’ue.  Events  are  declared  HAL  language  variables  which  have  a 
boolean  true/false  or  on/off  state.  These  software  events  may 
be  signalled  (caused  to  change  state)  by  a program  statement. 

If  a real  time  statement  with  an  event  expression  is  executed, 
the  expression  is  immediately  evaluated.  If  its  value  is  not 
true,  it  becomes  an  "activated"  event  expression.  An  "activated" 
event  expression  is  monitored  until  it  becomes  true  or  until  the 
associated  process  is  terminated.  When  an  event  change  state, 
"activated"  event  expressions  are  re-evaluated  to  determine  if 
they  have  become  true.  If  they  have,  the  requested  action  is 
taken  (ready  or  cancel  a process).  Thus,  event  expressions 
have  a life  time  beyond  the  execution  of  the  containing  statement. 

The  following  statements  can  signal  (change  the  state  of) 
an  event; 

SET,  RESET,  SIGNAL  - explicitly  sets  or  pulses 
the  state  of  the  event  (see  Figure  10-10) . 

SCHEDULE  - implicitly  sets  the  process  event  state 
to  true,  if  the  program  or  task  was  declared 
with  a process  event. 

RETURN,  CLOSE,  (at  program  or  task  level),  CANCEL, 

TERMINATE  - implicitly  sets  the  process  event  state 
to  false,  if  the  program  or  task  was  declared 
with  a process  event. 

The  following  statements  may  explicitly  specify  an 
event  expression: 

WAIT  FOR  - causes  the  executing  process  to  wait  until 
the  event  expression  is  true  (see  Figure  10-11) . 

SCHEDULE  (with  ON  option)  - causes  the  newly  created 

process  to  wait  until  the  event  expression  is  true. 
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INTERMETRICS  I 


WAIT  FOR 


TO  miT  ENTRY 
OP  PROCESS 
SELECTOR 


Figure  10-11 
WAIT  FOR  ROUTINE 
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I li.. 

! 


||('|ri'..  -.'S^-«Ciw. 


.1 


SCHEDULE  (with  the  WHILE  option)  - causes  cancel- 

expJIssiL  is  created  process  if  the  event 

expression  is  false  (an  implicit  "NOT"  is 

applied  to  the  event  expression) . 


SCHEDULE  (with  the  UNTIL  option)  - causes  cancel- 

lation  of  the  newly  created  process  if  the  event 
expression  is  true,  with  the  stipulation  thit 
at  least  one  cycle  will  be  allowed  to  executi. 


wLre  a"£oo?ean“?'blrSxp?SSI™^?raU^  ”d 

a“r;^a1nat?a""oni?r„cTatThen^-"'’\h^ 

executed,  and  unlatched  events  ailJJys  ipSS^n^L'SISrSL^S. 


called  bf  the°;i^"IS.®|^Sf 
and  event  expression  handling  routinis  The?J  LS^flnr  T®"*" 
SCHEDULE  wai? ' coSjwonf  (WA^? 

SCHEDULE  WHiLbU  SiScl'^tte'uNj^nia^miL^Stea 

asynchronously  with  respect  to  exeL?ioJ°Sf  comoitSd'''' 
event  expression  must  therf^for'e  Km  mm  ■ oi^piled  code,  an 

through  an  event  expression  structure"™creSed  bv°the^  routine 
and  passed  by  a po -inter  in  thm  the  compiler 

SCHEDULE  routine^  See  Piaure  in  19 

routine  then  cal  10-12.  The  WAIT  or  SCHEDULE 

ourine  tnen  calls  the  enqueue  routine  described  below. 


“niS-w 


1) 


2) 


t?Se  hJ  expression  is  immediately 

by  calling  the  Event  Expression  Evaluator. 


if  it  is  not,  copy  the  event  expression  informa- 
tion to  an  event  block  and  enqueue  the  blScron 
the  event  block  queue,  thereby  activating  the 

Sf PcT®'  -e^appri'ria\'e\^LrK;?e®“® 


This  routine  has  the  following  parameters: 


WHIM?^oriMT®P§R?!®“"  (SCHEDULE  ON,  UNTIL,  or 


2)  PCB  POINTER. 
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Figure  10-12 

EVENT  EXPRESSION  STRUCTURE,  EVENT  BLOCK,  EVENT  BLOCK  QUEUE 


EVENT  EXPRESSION:  A AND  NOT  (B  OR  C) 


EVENT  EXPRESSION 
STRUCTURE : 


STRUCTURE 


EXPRESSION  STRING 


<H- 


POINTER  TO  EVENT 
EXPRESSION  STRUCTURE 
(USED  IN  PAKAijETERS  UP  TO  5 

LIST  OF  WAIT  FOR  EVENT 

AND  SCHEDULE  ROUTINES  , VARIABI.E 
AND  PASSED,  TO  EVENT  POINTERS 

EXPRESSION  EVALUATOR) 


EXPI05SSI0N 
STRING  c- 
EDINTEB 


4 unused 


5 unused 


□ 

2 

3 

OR 

NOT 

AND 

EOS 


EOS=END  OF  STRING 


A 

) 

B 

C 

) 

EVENT  VARIABLES 
(true  or  false 
booleans) 


The  expression  string  is  an  encoded  reverse  Polish  form  of  the 
event  expression  suitable  for  stack  evaluation.  Events  A,  B,  and  C 
are  represented  by  1,  2,  and  3 respectively,  indicating  the  relative 
positions  in  the  event  expression  structure.  The  operators  AND,  OR, 
NOT,  and  EOS  (End  of  string)  are  coded  in  a way  which  distinguishes 
them  from  event -variable  representations. 


EVENT  BLOCK: 


NEXT 


PCB 


TYPE 


— 


pointer  to  nej:t  event  blocJt  or  null 

pointer  to  PCB  of  associated  process 

type  of  event  expression  (SCHEDULE  ON,  UNTIL, 
or  V7HILE,  or  WAIT  FOR) 

event  expression  structure  as  above 


EVENT  BLOCK  QUEUE;  representing  3 "activated"  event  expressions 


EVENT  BLOCKS,  AS 
ABOVE 
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■4  - 


3)  EVENT  EXPRESSION  STRUCTURE  POINTER. 


If  the  expression  is  immediately  true,  an  event  blo^'k 
xs  not  queued,  and  the  routine  returns  lith  an  ind!cI?or  th^J 
FOR  activated.  In  this  case,  the  WAIT 

pass  control  to  the  process  selector, 
but  returns  control  to  the  executing  process. 


K event  expression  structure  must  be  copied  to  the  event 

sto?Le  and^di  ®^®®ted  by  the  compiled  code  in  temporary 
storage,  and  does  not  remaxn  beyond  the  execution  of  the  state- 
ment. See  Figure  10-13  for  a flowchart  of  this  routine. 


i^caliL  rr-i\  Evaluator  Routine.  This  routine 

iL  the  enqueue  routine  described  above,  and  2)  by 

e5f.;,4.„  processor  (described  next)  when  an  event  has  changed 
state.  It  takes  a pointer  to  an  event  expression  structure  a«? 
reor^cSn?  returns  a boolean  result  which  is  the  value  of  the 
^ expression.  Using  the  polish  string  form 

carriSs^out^thi^^o^”*^  ? simple  push-down  stack,  it  actually 
the  logical  operations  on  the  event  variables. 

Since  the  condition  is  satisfied  when  the  expression  value  is 
false  for  the  SCHEDULE  WHILE  type  and  true  for  the  other  types, 

of  a^WHTTP^  inverts  (applies  the  NOT  operation  to)  the  result 

HILE  expression.  Thus,  the  Evaluator  always  returns  true 
if  an  event  expression  condition  is  satisfied.  See  Fiqure  10-14 
for  a flowchart  of  the  Event  Expression  Evaluator!  ^ 


This  routine  has  the  following  parameters: 
1 ) TYPE 


2) 


POINTER  to  event  expression  structure 


Processor.  This  routine  is  called  by  the 
Service  Routines  for  normal  events 
the  scheduler  and  the  Terminate  Subroutine  for  process 
tzt  t re-evaluates  activated  event  expressions  by  callinq 

thJ  Expression  Evaluator  for  each  event  expression  on 

he  event  block  queue.  If  the  Evaluator  returns  with  a true 
expression,  the  Event  Processor  performs  the  appropriate 

that  condition  (readying  or  cancelling  a process) 
nd  the  event  block  is  removed  from  the  queue  and  freed  If^ 
an  event  block  is  encountered  with  the  "terminated"  flag  set, 
and  freed.  The  Terminate  Subroutine  need^only 

Fianrp  expression.  See 

Figure  10-15  for  a flowchart  of  the  event  processor. 
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Figure  10-13 
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Pxgure  10-14 
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10.2.7  Timer  Management 


niATN^rromc^l?^  following  real  time  statements  make  use  of  timer 
management  routines: 


WAIT  - causes  the  active  process  to  wait  for  a specified 
time  interval  or  until  a specified  time. 


SCHEDULE  (IN  or  AT  option)  - causes  the  newly  created 
process  to  wait  before  initial  execution. 


SCHEDULE  (REPEAT  EVERY  or  AFTER  option)  - causes  the 
newly  created  process  to  execute  cyclicly  with 
period  between  either  the  beginning 
(EVERY)  or  the  end  (AFTER)  of  one  cycle  to  the 
beginning  of  the  next. 


SCHEDULE  (UNTIL  option)  - causes  the  newly  created 
process  to  be  cancelled  at  a specified  time. 


u-  V.  Th®se  timing  services  are  provided  by  two  routines 
which  control  the  use  of  the  interval  timer.  The  timer 

called  by  any  routine  requesting  a time 
interval.  A type  code  indicates  what  action  is  to^be  performed 

^^rives.  The  timer  interrupt  routine  ^ 
by  the  statement  processor  when  the  software  interval 
timer  drops  to  zero.  These  two  routines  operate  on  a timer 
queue,  each  element  of  which  represents  a Lparate  timer  rSguest 
IS  ordered  by  time  of  expiration,  so  that  the  first 
element  on  the  queue  is  the  next  to  expire.  The  value  in  the 
timer  IS  such  that  it  will  cause  an  interrupt  at  the  time 
specified  in  the  top  queue  element. 


10.2.7.1  Timer  Enqueue, 
the  following  actions: 


The  timer  enqueue  routine  takes 


1) 


If  the  time  value  (time  of  expiration)  was  supplied 
•in  relative  form  (as  determined  by  the  type)  , it 
is  converted  to  absolute  form. 


2)  If  the  time  of  expiration  is  already  past,  the 
routine  returns  with  a "not  enqueued"  indication. 


3) 


Otherwise,  a new  queue  element  is  acquired,  the 
input  parameters  are  copied  to  it,  and  the  element 
tion  queue  by  order  of  time  of  expira- 


4)  If  the  new  element  was  placed  on  top  of  the  queue 
xn  3),  the  value  in  the  hardware  timer  is  altered 
to  reflect  the  new  top  element. 


5)  The  routine  returns  with  the  "enqueued"  indication. 
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A flowchart  appears  in  Figure  10-16. 

This  routine  has  the  following  parameters; 

1)  PCB  pointer 

2)  TIME  VALUE  (relative  or  absolute) 

3)  INTERVAL  TIME 


10.2.7.2  Timer  Interrupt  Routine . This  routine  gets  control 
from  the  statement  processor  when  the  timer  causes  a pseudo 
interrupt.  It  takes  the  top  element  (the  one  representing 
the  expired  interval)  off  the  queue,  carries  out  the  specified 
action,  frees  the  old  top  queue  elements,  and  loads  the  timer 
with  the  appropriate  value  for  the  new  top  element.  The 
actions  for  the  expired  elements  are  to  ready  or  cancel  a 
process.  A special  test  is  made  for  an  interval  representing 
a SCHEDULE  statement  REPEAT  EVERY  option,  since  there  is  the 
possibility  that  the  last  cycle  ran  longer  than  the 
specified  period  between  beginnings  of  cycles.  If  the  process 
is  not  in  an  inter-cycle  wait  state,  an  error  is  indicated, 
and  the  process  is  not  made  ready.  This  causes  the  cyclic 
process  to  skip  a cycle. 

There  is  also  a special  element  on  the  queue  (called 
the  clock  element)  which  is  used  to  keep  the  timer  running 
in  the  absence  of  any  timer  requests.  Both  the  clock  element 
and  any  REPEAT  EVERY  elements  are  re-enqueued  instead  of 
freed,  since  they  represent  self-perpetuating  intervals. 

The  most  appropriate  value  for  the  clock  interval  is  the 
maximum  value  that  can  be  placed  in  the  timer.  A flowchart 
appears  in  Figure  10-17. 
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Figure  10-17 
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10.3  Statement  Processor 


Summary 


The  statement  processor  is  a multi-purpose  routine  that 
gets  control  at  the  execution  of  every  HAL/S-360  statement 
unless  the  NOTRACE  option  was  specified  at  compile  tim^ 

It  functions  as  a clock  to  simulate  flight  computer  time, 
as  a recorder  of  diagnostic  information,  and  as  an  interface 
to  an  external  monitor  controlling  the  simulation  on  a state- 
Because  it  is  executed  so  frequently  and  because 
all  of  Its  functions  may  not  be  needed  all  of  the  time,  a 
variable  statement  processor  has  been  implemented  which 
can  be  tailored  dynamically,  providing  only  those  functions 
which  are  needed  and  thereby  reducing  CPU  time.  This  also 
makes  possible  faster  stand-alone  operation,  since  the 

unneeded  and  has  been  eliminated  from 
the  default  statement  processor.  This  section  outlines  the 
technical  method  used,  describes  the  optional  features,  and 
details  the  new  interfaces  controlling  the  variable  stkement 
processor. 


Technical  Method 


The  following  method  of  dynamically  swapping  statement 
processors  results  in  zero  time  and  near-zero  space  overhead 
It  It  IS  not  used,  and  a minimum  of  overhead  if  it  is.  All 
possible  versions  (256,  given  all  combinations  of  8 binary 
options)  of  the  statement  processor  exist  as  separate  load 
modules  in  a special  run-time  library.  Selected  versions  are 
loaded  into  main  memory  only  if  and  when  requested  by  a service 
call.  Actual  overlaying  of  code  is  performed  only  at 
he  start  of  the  next  call  to  the  statement  processor,  allowing 
the  swap  request  to  be  made  from  a statement  processor  exit 
routine.  If  n versions  are  selected,  only  n+1  OS  LOADS  are 
performed,  no  matter  how  many  times  the  n versions  are  swapped. 
Each  version  IS  assembled  with  the  minimum  instructions  needed 
to  perform  the  selected  options. 


A statement  processor  re-configuration  service  routine 
may^be  called  through  the  HALS IM  simulation  vector  table.  This 
routine  is  callable  at  any  time  after  the  HAL/S-360  load  module 
IS  loaded.  It  performs  the  following  actions: 


1)  (First  call  only)  LOAD  the  Version  Vector  Table  (WT) 
and  save  Its  address  in  HALSYS. 


2)  (First  call  for  given  version  only)  LOAD  the  specified 
version  and  save  its  address  in  the  WT. 


3)  Save  the  address  of  the  specified  version  in  HALSYS. 
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4)  Modify  the  first  instruction  of  the  statement 
processor  to  cause  a branch  to  the  swapper 
routine. 

5)  Return  to  the  caller. 

The  next  time  the  statement  processor  is  called,  the  swapper 
^hff^S?l?:JSg"S;:  instructions  long,  it  p^^forms 

1)  Locates  the  version  already  in  main  memory  using 
the  address  saved  in  HALSYS  by  3)  above. 

the  existing  statement  processor  using  one 

corrects  the  modification 

made  in  4)  above. 

3)  Branches  to  the  new  statement  processor. 

The  details  of  the  interfaces  for  the  statement  processor 

and  Its  reconfiguration  service  routine  are  given  in  the  HAL/s-qm 
Interface  Control  Document.  yiven  in  tne  HAL/S-SDL 


11.0  THE  MACRO  LIBRARIES 

The  HAL/S  compilers  are  written  in  vpt 
compatible  IBM  360  computers  HAT  % ^nd  execute  on 

machine  code  and  HAL/S-FC  gSAer^es  Ip 

The  object  code  produced  AP-101  machine  code, 

library  routines  The  linear*  ^^ompiler  contains  calls  to 
in  the  assem^^rianauaai  n?  ^°^tines  have  been  written 
to  facili?!Se  thJ  wr???na  computer.  m order 

which  interface  with  obWt  language  routines 

collection  of  maS^s  ^ code  of  a HAL/S  compiler,  a 

collection  for  the  AP-lOl^^^The'^AP^lOi  ^ second 

S.1.4  o.  the  ^TA-reoTo.mtr%i.^  lpSc1??Sa^iL?"^ 


.1' 
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kfr 
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12 . 1 Paging  Area 


Paging  is  done  directly  between  core  memory  and  the  PDS 
(Partitioned  Data  Set)  containing  the  Simulation  Data  Files 
generated  by  Phase  3.  This  is  made  possible  by  the  list  of 
TTRs  contained  within  the  last  physical  record  of  each  SDF . 

A TTR  is  given  for  each  record  of  the  file.  Reads  can  thus 
be  accomplished  via  a FIND,  POINT,  READ  sequence.  Figure 
12-1  shows  the  physical  layout  of  an  SDF  with  the  TTR  record 
(or  page)  at  the  end  of  the  file.  The  TTR  record  contains 
pointers  to  all  other  file  records  and  is  itself  in  turn 
pointed  to  by  a TTR  in  the  User  Data  area  of  the  PDS  directory 
entry. 


SDF  records  (or  pages)  are  always  1680  bytes  long. 

This  is  true  even  of  the  TTR  page  which  may  contain  as  little 
as  4 bytes  of  data.  SDFPKG  reads  SDF  pages  from  a PDS  into 
a "paging  area"  which  may  consist  of  from  1 to  250  1680-byte 
areas.  The  upper  limit  can  be  increased  by  altering  an 
assembly  parameter  in  SDFPKG.  This  would,  however,  increase 
the  size  of  SDFPKG  by  16  bytes  per  added  entry  since  the  Paging 
Area  Directory  (PAD)  would  have  to  increase  correspondingly. 

At  the  other  extreme,  SDFPKG  will  usually  function  properly 
with  a 1 page  paging  area  (if  no  Reserves  are  requested) , but 
2 pages  is  a recommended  minimum. 

The  PDS  containing  SDFs  to  be  read  is  normally 
identified  by  a HALSDF  DD  card.  At  the  time  of  the  initial- 
ization call,  however,  an  alternate  DDNAME  can  be  specified. 

The  PDS  may  have  catenation  levels  as  long  as  the  user  intends 
only  to  read  data.  If  it  is  desired  to  "modify"  an  SDF  (by 
requesting  SDFPKG  to  operate  in  UP DAT  mode)  none  of  the  pertinent 
SDFs  may  reside  within  a catenated  level.  This  is  an  OS  restric- 
tion. 


At  the  time  of  the  SDFPKG  initialization  (INITIALIZE) 
call  the  user  program  must  specify  the  size  of  the  "nucleus" 
paging  area.  This  initially  allocated  area  will  then  be 
available  to,  and  exclusively  controlled  by  SDFPKG  until  the 
time  of  the  termination  call  (TERMINATE) . SDFPKG  makes  provisions 
for  dynamic  expansion  and  contraction  of  the  paging  area  size 
(within  the  25  0 page  limit)  via  one  or  more  AUGMENT  (increase 
paging  area)  calls  and  RESCIND  (remove  all  augments)  calls. 

The  RESCIND  call  always  reduces  the  paging  area  size  to  the 
initial  (nucleus)  area. 
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SDFPKG  acquires  the  core  memory  necessary  for  the  nuclenc? 

executing  a GBTMain  or  by  ieL“!nr?t 
from  the  user  program.  The  core  memory  necessary  for  AUGMENTS 
however,  must  always  be  provided  by  the  user.  if  SDFPKG  is  ^ 
xnstructed  to  GETMAIN  the  nucleus  paging  area,  it  will  frJJ  it 


12.2  Virtual  Memory  Considerations 


built  by  Phase  3 in  a virtual  memory  environment 

that  all  SDF  data  items  have  "pointer"  addresses  (i.e.  address 
in  space).  In  addition,  if  the  item  resides 

HAT/?m a core  memory  address.  As  described  in  the 
HAL/SDL  ICD,  a pointer  consists  of  a fullword  whose  high-order 

It  (record)  number,  and  whose  low  o?Lr 

16  bits  contain  an  offset  relative  to  that  page  (i.e  a disolaS- 

"S?o  So  numbered  fSoS 

fSSs?SyS:^Srd\?S"fSl;iD?f  " iaentmes 


The  fundamental  form  of  data  access  provided  by  SDFPKG 
accepts  a pointer  as  input  and  returns  the  core  address  of  the 
corresponding  data  as  output.  The  core  address,  of  course,  lies 
somewhere  within  the  paging  area.  If  the  necessary  SDF  page  was 
already  in  the  paging  area  this  is  a fast  operation.  If  not 
paging  is  performed  as  necessary  and  is  transparent  to  the  user 
program.  This  process  of  "location"  can  be  requested  explicitly 
by  the  user  software  through  a LOCATE  call,  but  normally\he 
user  program  will  employ  the  higher-level  SDFPKG  mode  calls 
which  will  then  perform  the  necessary  "locates"  implicitly  and 
totally  internal  to  SDFPKG.  ^ ^ 


locates  are  explicit  or  implicit,  the  important 
point  IS  that  almost  all  SDFPKG  mode  calls  result  in  returning 
to  the  user  the  core  location  (and  corresponding  virtual  memory 
pointer  for  reference  purposes)  of  some  data  item.  This  data 
Item  may  be  an  SDF  Directory  Root  Cell,  Block  Data  Cell,  Symbol 
™ J fetatoment  Data  Coll,  Block  Node,  Symbol  Node,  State- 

L0CATE°c?n^5-,o^  arbitrary  SDF  location  if  an  explicit 

LOOM L call  was  made..  The  page  containing  the  item  of  interest 
is  in  core  memory  at  that  point  and  the  user  program  may  extract 
data  (or  insert  data)  using  the  core  address  provided. 
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normally  the  case,  and  especially  true  when  a 

maS  "located"  in  this  fashion 

ay  be  overwrrtten  as  a result  of  a subsequent  SDFPKG.  If 

the  user  program  wishes  to  guarantee  the  continued  existence 

advertised  core  address,  the 

Rpv  (Reserve)  disposition  parameter  should  be  specified  at 
the  time  of  the  initial  mode  call.  SDFPKG  then  increments  a 
reserve  count  maintained  in  the  Paging  Area  Directory  (PAD) 
containing  the  located  data  and  ensures  that 
that  page  will  not  be  overwritten  until  the  reserve  count  has 
been  decremented  to  zero.  At  some  later  time  the  user  program 

making  any  mode  call  that  re-locates 
™ ‘^^ta  Item  and  specifying  RELS  (Release)  . Since  it  is  actually 
pages  and  not  specific  locations  that  are  reserved  it  is  only 
necessary  to  locate  any  part  of  the  page  in  order  to  lijeit^ 

Users  should  be  careful  to  limit  the  use  of  RESERVES 
1 small  paging  areas  are  employed  since  each  reserve  makes 
one  more  paging  area  slot  unavailable  for  further  reads.  Also, 

should  be  ultimately  released.  A 
RESCIND  call  will  result  in  an  abort  (Abend  4011)  if  reserved 
pages  are  detected  in  the  augmented  portion  of  the  paging  area. 

The  third  disposition  parameter  MODF  (Modify)  can  onlv 

specified  at  the  time  of  the  INITIALIZE 
call  MODF  informs  SDFPKG  that  the  located  item  will  be  altered 
by  the  user.  As  a result,  SDFPKG  will  rewrite  the  affected  pace 
back  to  the  PDS  (HALSDF  or  alternate  DDNAME)  prior  to  overlaying' 
It  with  newly  read  pages.  Again,  SDFs  to  be  altered  cannot 
lie  in  a catenation  level. 

user  program  cannot  determine  until  after  the 

deslrabl3,-tif  oUl  or 

(moL  6)  parameters  can  be  specified  by  a DISP 

prfvloully'‘\Lltfd'’iS"""  retroactively  to  the 


12.3  SDF  Selection 

allows  simultaneous  access  to  an  unlimited  number 
means  that  the  paging  area  can  contain  assorted 
pages  from  a number  of  different  SDFs.  In  order  for  SDFPKG 
to  know  Which  SDF  is  to  be  referenced  in  support  o?  thHsLs 

proper  SdJ  for  the  user  to  specify  or  "select"  the 

^ ,P  , _DF.  This  can  be  done  in  two  different  ways.  The  first 
IS  to  make  an  explicit  SELECT  call  to  SDFPKG  with  the  8 

Si“SrSor?DFPKfL’tr"  unless  overriden 

ail  tuithcr  SDFPKG  data  access  requests  will  be  directed  to 
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this  SDF.  The  second  method  is  called  "Auto-Selection". 

By  si^ecj.fying  the  AUTO_SELECT  disposition  parameter  and 
including  the  SDF  name  as  an  auxiliary  input,  SDFPKG  calls 
will  reference  the  specified  SDF.  Auto-selection  is  slightly 
slower  than  explicit  selection  but  is  useful  if  SDFs  are  to 
be  randomly  referenced. 

When  an  SDF  is  selected  for  the  first  time  following 
the  INITIALIZE  call,  SDFPKG  performs  a BLDL  for  that  PDS 
member,  extracts  the  TTR  list  from  the  last  SDF  page,  extracts 
certain  data  from  the  Directory  Root  Cell  and  incorporates 
all  of  this  information  into  a File  Control  Block  (FCB)  for 
that  SDF.  The  FCB  is  allocated  from  a block  of  memory  called 
the  FCB  area  which  is  discussed  in  the  next  section.  The 
nev  FCB  is  then  linked  into  a binary  tree  structure  ordered 
by  SDF  name  so  that  later  selections  can  rapidly  find  the 
FCB  needed  to  access  data  in  the  file.  With  one  exception, 
once  an  FCB  is  created,  it  is  maintained  until  a TERMINATE  " 
call  resets  all  SDFPKG  variables  and  data  areas.  ; This  means 
that  the  FCB  area  may  eventually  become  filled  with  FCBs 
and  require  extension. 

If  the  user  program  knows  beforehand  that  SDFs  will 
be  accessed  in  a serial  fashion,  or  if  core  space  is  at  a 
premium,  then  SDFPKG  can  be  instructed  at  the  time  of  the 
INITIALIZE  call  to  operate  in  the  ONEFCB  mode,  i.e.  only  one 
FB  is  kept  so  that  a new  SELECT  will  cause  the  new  FCB  to 
be  built  over  the  old  one. 


12.4  FCB  Area 

The  FCB  Area  is  similar  to  the  Paging  Area  in  that  an  • 
initial  amount  must  be  allocated  at  the  time  of  the  INITIALIZE 
call.  The  user  can  specify  what  the  allocation  is  to  be 
or  accept  the  default  of  1024  bytes.  Additionally,  the  user 
has  to  decide  whether  to  provide  SDFPKG  with  an  FCB  Area  or  to 
let  SDFPKG  obtain  one  via  a GETMAIN . If  the  user  supplies  an 
FCB  Area,  then  he  must  be  prepared  to  supply  additional 
areas  (via  the  AUGMENT  call)  whenever  the  current  FCB  Area  is 
exhausted.  This  condition  is  signalled  by  a return  code  of 
12  meaning  that  a select  failed  due  to  insufficient  space  to 
construct  an  FCB.  If  the  user  does  not  wish  this  flexibility, 
then  SDFPKG  can  be  allowed  to  GETMAIN  the  initial  FCB  Area, 
or  the  MISC  parameter  can  be  set  to  1 on  the  INITIALIZE  call,  which 
will  allow  automatic  GETMAINs  regardless  of  who  allocated  the 
initial  area.  In  this  mode  of . operation , subsequent  GETMAINS 
for  512  bytes  each  will  be  performed  as  needed  and  this  activity  ^ 

will  be  totally  transparent  to  the  user  program.  Again,  all  ^ 

such  GETMAIN 'od  areas  are  freed  when  SDFPKG  is  called  to  TERMINATE. 
ONEFCB  mode  is  available  regardless  of  whether  the  user  or 
SDFPKG  is  responsible  for  FCB  Area  allocation.  It  should  also 
be  noted  that  although  tJic  AUGMENT  call  can  extend  either  the 
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Paging  Area  or  FCB  Area  (or  both  simultaneously),  the  RESCIND 
call  only  applies  to  the  Paging  Area,  i.e.  the  FCB  Area  can 
only  grow. 

Each  FCB  requires  60  bytes  plus  8 bytes  for  each  page 
of  the  associated  SDF.  FCBs  are  thus  highly  variable  in  length. 

12.5  Paging  Strategy 

The  Paging  Area  Directory  (PAD)  contains  an  entry  for  each 
core  slot  (up  to  250)  and  each  entry  contains,  among  other  data, 
a reserve  count  and  a usage  count  for  the  page.  As  mentioned, 
the  reserve  count  is  used  to  lock  the  page  in  its  core  slot  as 
long  as  the  count  is  non-zero.  The  usage  count,  however,  keeps 
track  of  how  recently  that  page  had  been  accessed  relative  to ' the 

wltMn^qnl’Prr’^  global  _ count  of  "locates-  is  maintained 

within  SDFPKG  and  is  inserted  into  the  usage  count  field  of  the 
PAD  entry  when  the  page  is  accessed.  The  effect  is  one  of 
a pseudo-clock.  When  an  SDF  page  must  be  read  into  a core  slot 
from  the  PDS , the  core  slot  that  is  both  unreserved  and  least 
recently  accessed  is  overlayed  by  the  new  data.  If,  however 
the  modification  flag  for  that  PAD  entry  indicates  that  the 
old  page  is  in  a modified  state  (UPDAT  mode  only)  then  the  page 
IS  written  out  prior  to  being  overlain.  At  the  TERMINATE  or 
RESCIND  call  all  modified  pages  are  written  out  to  the  PDS. 


12-7 


INlERMCTRkt;  INCOnitiRAIM^  • 701  CONCOnO  AVI  NU(.  ■ CAMBRIDGn,  MASSACHUSETTS  02138  • (617)  661-1040 


13.0  XPL 


INTERMETRICS  VERSION 


The  standard  XPL  language  provides  insufficient 
support  for  a compiler  as  sophisticated  as  the  HAL/S 
compilers.  Intermetrics  has  added  facilities  in  three 
ways : 

1)  Direct  extensions  to  the  language. 

2)  Additional  implicitly  declared  procedures 
and  variables. 

3)  An  extensive  set  of  MONITOR  calls. 

These  added  facilities  are  described  in  Sections  13.1,  13.2 
and  13.3.  In  addition  to  the  extensions  mentioned  above, 
facilities  have  been  developed  for  dealing  with  large  XPL 
programs ; 

4)  Documentation  aids  and  user  options. 

5)  Perform  updating  functions  on  XPL  source 
programs . 

6)  Make  modifications  in  XPL  load  modules. 


13.1  Direct  Extension  of  the  XPL  Language 
Declaration  Statements 

In  addition  to  the  DECLARE  statement,  the  following 
declaration  statements  are  supported: 

a)  ARRAY  <var-name>  (<dimension> ) <data  type> ; 

This  statement  behaves  exactly  like  the  DECLARE 
statement  with  one  exception;  the  data  is  not 
allocated  in  the  standard  XPL  data  area,  thus 
preventing  the  waste  of  a significant  amount  of 
the  XPL  base  register  addressing  space.  Instead, 
a data-area  relative  pointer  is  generated  which  is 
used  to  address  the  data.  The  purpose  of  ARRAY 
data  is  simply  to  extend  the  severely  restricted 
addressing  range  for  DECLARE  data  at  the  expense 
of  a code  penalty  for  each  reference.  Large  but 
infrequently  used  tables  are  prime  candidates  for 
ARRAY-type  declarations. 
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b) 


BASED  <var-name>  <data  type>; 

This  statement  reserves  a word  to  contain  a pointer 
to  a block  of  data  which  exhibits  the  properties 
of  the  specified  data  type.  No  dimension  information 
is  required,  and  will  be  Ignored  if  specified. 

It  IS  the  user's  responsibility  to  guarantee  that 
the  pointer  word  is  properly  set  prior  to  any 
references  to  the  variable.  Unless  over-ridden 
using  a special  case  of  the  ADDR  built-in  function, 
pointer  de-ref erencing  will  always  occur  on  any 
reference  to  the  variable.  The  pointer  may  be 
set  using  the  assigment: 


Coreword (ADDR (<var  name>))  = addrej 


Bf 


The  dynamic  address  may  either  be  the  address  of 
existing  data  (to  allow  equivalencing)  or  may  be 

*???  5 monitor  call  (which  performs  an  OE 
GETMAIN  call)  for  true  dynamic  allocation. 

c)  COMMON  <var  name>  [ (<dimension> ) ] <data  type>; 

This  statement  also  behaves  exactly  like  the  DECLARE 
statement  except  that  the  data  is  allocated  in  an 

remain  in  core  between  program  phases, 
This  allows  XPL  programs  to  be  separated  into 
individual  phases  with  a common  data  base  for  tables, 

d)  COMMON  ARRAY  <var  name>  (<dimension> ) <data  type> ; 

This  IS  the  COMMON  equivalent  for  ARRAY  data,  the 
purpose  being  to  allow  allocation  of  large  arrays 
without  using  up  the  base  register  resources. 

e)  COMMON  BASED  <var  name>  <data  type> ; 

This  statement  behaves  exactly  like  the  BASED 
statement  except  that  the  pointer  is  allocated 
phases  data  area  for  shared  use  by  subsequent 

data  restrictions  apply  to  the  above  mentioned 


1) 


ARRAY,  COMMON,  and  COMMON  ARRAY  statements  may 
and  to  allocate  data  of  type  CHARACTER, 


2)  BASED  and  COMMON  data  of  any  kind  may  not  be 
initialized  via  the  INITIAL  feature. 


H ir 


13-2 

INTERMETRICS  INCORPORATED  • 701  CONCORD  AVENUE  • CAMBRIDGE,  MASSACHUSETTS  02138  • (617)  661-1840 


initialize  vaiiable  with  negative 


<constant> 


necessity  of  using  twos -complement 
hexidecxmal  constants  for  initializing  with  negative' quantities 


the  oriaiial'^^L^'^  somewhat  changed  from 

went  into  a alobal  variable  declared  LITPJRALLY 

went  inco  a global  table  and  remained  in  effeot-  -Fo-r  +-v>o 

^"9->less  of  the  ^es?I^raep?S  “ tte 

in  the  svjntol^tabie*^°”a  aeclared  LITERALLY  is  kept 

table,  and  is  removed  from  the  table  when  the^ 

" nide-elfect,  iLIaWef 
oo?IeI?ea  cross-reference  information 


^i<^i°nal  Implicitly  Declared  Procedures  and  variahie. 


COREWORD (X) 


According  to  "A  COMPILER  GENERATOR",  X is  a word 
xndex,  or  word-aligned  address.  Howevei,  in  tL 
Interraetrics  version,  X must  be  a byte  address  and 

two  himself  guarantee  that  the  lower-mo^t 

two  bits  are  O's  (fullword  aligned). 


ADDR (<var > ) 


tion  excep“Jn''t!!e''Sase“he?e^iL“L‘’dlSfir^^  jpeoifica- 

MDR(LsId%AR(Su?  i«  desired,  use  ?h“?o^ 


XPL  fysJSjt"®  functions  have  been  added  to  the 


LINE  COUNT 


This  function  returns  the  number  of  lines  which  hAtrc> 
been  printed  on  the  SYSPRINT  file  since  th^Ls^  page  ^ject. 


13-3 


IMTERMETRICS  incorporated  ■ 701  CONCORD  A«RMI  Bin.I,nn,o,,. 


.'.’k-iTrAiMO; 


SET_LINELIM  (< number > ) 

This  procedure  establishes  the  number  of  lines  which 
will  be  printed  on  the  SYSPRINT  file  before  an  automatic 
page  eject  and  header  line  will  be  printed. 

LINK 

This  procedure  performs  the  functions  necessary  to 
exit  the  current  program  phase  and  pass  control  to  the 
next  phase  on  the  PROGRAM  DD  sequence,  preserving  COMMON 
data  and  any  other  dynamically  allocated  space  which  has 
not  been  deallocated. 

PARM_FIELD 

This  function  returns  a character  string  which 
contains  the  entire  parameter  specification  coded  on 
the  PARM=  option  on  the  EXEC  card.  If  no  PARM  is 
specified,  a null  string  will  be  returned. 

STRING (X) 

This  function  transfoinns  the  variable  X (which  should 
be  FIXED  for  proper  usage)  into  a CHARACTER  descriptor. 

X should  have  the  form: 


Length-1  Data  Address 


8 bits  24  bits 


The  data  pointed  to  by  the  data  address  should  be  a series 
of  EBCDIC  bytes  to  be  treated  as  a CHARACTER  string. 


STRING_GT(S1,S2) 

This  function  returns  a TRUE  value  if  the  contents  of 
string  SI  is  greater  than  the  contents  of  string  S2,  based 
on  the  collating  sequence  of  the  characters,  irrespective 
of  the  lengths  of  Si  and  S2.  Otherwise,  the  value  is 
FALSE.  This  is  functionally  equivalent  to  padding  the 
shorter  of  SI  or  S2  with  blanks  and  then  Gomparing  the 


ABS  (X) 

This  function  returns  the  absolute  value  of  X (Note: 
"80000000",  the  maximum  negative  number  has  no  representable 
absolute  value,  and  returns  "7FFFFFFF",  the  maximum  positive 
number  simply  to  guarantee  that  the  result  of  ABS  is  always 
positive) . 
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CALL  MONITOR(0,n); 
F=MONITOR(l,n,narae)  ; 

F=M0NIT0R(2,n,name) ; 

CALL  M0NIT0R(3,n) ; 


Closed  output  file  n and 
a FREEPOOL  on  the  DCB. 


perforins 


Writes  any  data  remaining  in  the 
buffer  for  PDS  output  file  n. 
Issues  STOW  macro  using  member 
name  indicated  by  'name'  (must  be 
8 characters  padded  with  blanks) . 
Then  close  and  FREEPOOL 's  DCB 
Returns  0 if  member  is  new. 
Returns  1 if  member  was  replaced. 


^errorms  FIND  macro  in  PDS  input 
fxle  n using  member  name  specified 
name'  (must  be  8 characters) . 
If  n-4  or  n=7,  first  FIND  attempt 
uses  DDNAME  INCLUDE  and  then  tries 

“ if 

round.  Returns  1 if  member  not 
found. 


Closes  input  file  n and 
FREEPOOL  on  DCB. 


performs 


CALL  MONITOR ( 4, n,b); 


Changes  LRECL  and  BLKSIZE  of 

instead  of  default 
^^st  preceed  first  use  of 

FILE (n) . 


CALL  MONITOR (5 ,ADDR (DW) ) ; 


In  forms  monitor  of  location  of 
double  word  aligned  work  area  (DW) 
to  be  used  as  communication  area 
for  later  use  by  monitor  calls  9 and 
10.  Monitor  calls  9 and  10  will 
agnd  if  MONITOR (5)  is  not  performed 


F MONITOR ( 6 ,ADDR (based  var) ,n) ; 


Performs  conditional  GETMAIN  of  n 
bytes  of  storage  (SUBPOOL^22)  and 

storage  into  based  v 
pointer.  Storage  is  set  to  zero , ~ 

Return  code  is  0 if  storage  was 
obtained  and  1 if  not  enough  storage 
was  available.  i-^idge 
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F=MONITOR (7 ,ADDR (based  var) ,n) ; 


CALL  M0NIT0R(8); 


F=MONITOR(9,op) ; 


F=MONITOR (10 , string) 


CALL  MONITOR  (11); 


Performs  FREEMAIN  of  n bytes  of 
storage  at  address  obtained  from 
based_var  pointer.  The  based_var 
pointer  is  not  modified. 

Not  in  use.  If  called,  produces 
ABEND  3000. 

Performs  floating  point  evaluation 
as  specified  by  value  of  'op'. 
Operands  are  obtained  from  work 
area  whose  address  was  passed  via 
a MONITOR (5)  call.  The  first 
operand  is  taken  from  the  first 
double  word  of  the  work  area  and 
the  second  operand  from  the  second 
double  word.  The  result  is  placed 
in  the  first  double  word  of  the  work 
area.  A SPIE  exit  is  used  to  detect 
underflow  and  overflow  conditions. 
Return  code  is  0 if  the  operation 
succeeds,  1 if  the  operation  fails 
(under  or  overflow). 


The  values  of  op  are : 
OP  Function 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


add 

subtract 
multiply 
divide 
exponential 
SIN  (argl) 
COS(argl) 
TAN (argl) 
EXP  Urgl) 
LOG (argl) 
SORT  (argl) 


(argl**arg2) 


Performs  character  to  floating  point 
conversion  upon  characters  in  'string' 
Return  code  is  0 if  result  is  valid, 

1 if  conversion  was  not  possible. 

The  result  is  placed  in  the  first 
double  word  of  the  work  area 
provided  by  the  MONITOR ( 5 ) call . 


Not  used 


a no^op. 
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string=MONITOR(12,p) ; 


point=MONITOR (13 , name) ; 


F=MONITOR(14,n,a) ; 


I=MONITOR(15)  ; 


CALL  MONITOR ( 1 6, n); 


4^ 


Converts  floating  point  number 
in  fxrst  double  word  of  work  area 
to  standard  HAL  character  form. 
Value  of  'p'  indicates  whether 
operand  is  single  precision  (p=0) 
or  double  precision  (p=8) . 


Performs  DELETE  of  current  option 
processor  and  then  LOADs  an  option 
processor  specified  by  'name* 

The  option  processor  loaded  is  called 
and  passed  a pointer  to  the  FARM 

effect  at  the  time  of  compiler 
invocation.  The  option  processor 
passes  the  FARM  field  and  establishes 
table  (see  Chapter  9)  whose 
address  is  passed  back  as  a return 
value.  If  'name'  is  a null  string, 

^^isting  options 

table  IS  returned. 


Interface  to  routines  which  create 
Simulation  Data  Piles.  Value  of 
selects  a function;  value  of  'a' 
supplies  supplementary  data: 

Function  a 


n 


n 


0 

1 

2 


Open 
Write 
Stow  & 


Close 


option  flags 
area  address 
member  name 


Returns  Revision  Level  and  Catenation 
Number  from  last  MONITOR (2)  call 

number  is  obtained  from 
PDS  directory  data  and  Revision 
Level  from  user  data  field  as 
specified  in  the  HAL/SDL  ICD 
The  values  are  returned  in  the  left 
and  right  halfwords  of  the  result. 


Sets  flags  in  byte  to  be  returned 
end  o?  f ^°de  at 

S passed 

most  byte  of  fullword  'n' 

If  high  order  bit  of  'n'  is  zero,  ‘ 

?f  OR 'ed  into  existing  flags. 

If  high  order  bit  of  'n'  is  one 
flags  replace  existing  flags,  ' 
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CALL  M0NIT0R(17,name) ; 


Causes  'name'  to  be  copied  to  i1 

third  parm  field  (if  any)  passed 
to  MONITOR  by  the  program  that 
invoked  the  compiler.  See 
HAL/SDL  ICD. 

T=M0NIT0R(18)  ; Returns  elapsed  CPU  time  since  ' 

beginning  of  run  in  units  of  .01 

seconds . s 

F=M0NIT0R{19,addr_list,size_list)  ; 1 

Performs  a list  form  conditional  H 

GETMAIN.  Returns  0 if  GETMAIN 
succeeds,  1 if  GETMAIN  fails.  ^ 

Storage  obtained  is  not  cleared.  \ 

Subpool  22  is  used. 

CALL  MONITOR (20, addr_list, size_list) ; 

Performs  a list  form  FREEMAIN  using 
same  type  operands  as  MONITOR (19). 

Performs  a variable  conditional 
GETMAIN  which  acquires  the  largest 
remaining  contiguous  area  of  main 
storage.  The  memory  is  immediately 
FREEMAINed  and  the  amount  obtained 
is  returned  as  the  value  of  the  | 

call.  . : 4 

J 

Cause  LOADing,  calling  and  DELETEing  | 

of  Simulation  Data  File  Access  j 

Package  (SDFPKG) . Used  only  by  | 

HALSTAT . ; I 


I=MONITOR(21) ; 


F=MONITOR(22,n,a) ; 


string=MONITOR(23) ; 


Returns  the  10  character  string  ob- 
tained from  the  ID  field  of  the  Pile 
Control  Block  of  the  first  phase  of 
the  compiler.  The  ID  field  is 
maintained  by  the  XPLZAP  program 
and  contains  the  identifying  string 
printed  on  the  header  of  each  page 
of  the  HAL  listing. 
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13.4 


_Documentation  Aids  and  User 


Will  ™veTcompfeif^ou?cr?ls??ng“rth^  requested  otherwise, 

J™pi?ei"Lf?JnSditiSnal  cllabm^y^^proviS™"'’^^^ 

global  procedures  have  beL  cSS  Tn 

has  another  option  which^lVanda  the  eynSf/cioss-^^lefe’S^i'"" 
data  to  include  the  list  of  procedure  names  SS?ch  eithe? 
referenced  a global  data  item  or  called  a global  procedure 
thus  providing  a two-way  cross-reference  set.  ' 


XPL  co^eJ?s:’'°®®^®®  inside  of 


$<char>  : 
$<char>+ : 
$<char>- ; 
$<char>0 : 


invert  the  current  sense  of  toggle  <char> 
turn  on  toggle  <char> 
turn  off  toggle  <char> 


St\he®S?r?"o?''th**  upon  the  setting 

ar  rne  start  of  the  compilation  ^ 


wpi  J-foi\T'cS?eS?^?”r?oggi;'fSr"“^:  “ -APM.field 

The  following  toggles  are  useful:  ^ entire  compilation 


Toggle 

L 


Action 


List  Program  source,  annotated  wi+-h  o-t-r,4-  i 
number.  cm-rcn+  with  statement 
„ j relative  program  counter 

and  current  procedure  name.  ' 
(Default  = On) . 


D 


Dump  symbol  table  and  other  useful  eferio+-' 
at  the  end  of  the  compila?Ln!  statist,  cs 
(Default  = On) . 


R 


(Default  = On) . 
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Dump  symbol  table  at  the  end  of  each  Procedure, 
if  any  local  data  is  declared. 

(Default  = Off). 

Print  Impact  summary,  indicating  variables 
outside  the  scope  of  any  procedure  which 
were  referenced,  plus  procedures  called. 
(Default  = Off) . 

Expand  variable  cross  reference  to  include 
names  of  procedures  referencing  data  and 
names  of  procedures  calling  other  procedures. 
(Default  = Off) . 

Allow  execution  of  XPL  program  even  if 
severe  errors  were  detected  by  compiler. 


The  following  PARM  field  options  are  recognized  by  the  compiler; 

LISTING2 

- list  only  lines  containing  errors  and  associated  errors 
messages  on  the  LISTING2  dataset. 

SYTSIZE  =>  nnn 

- expand  the  default  symbol  table  size  from  the  default 
size  (200)  to  nnn,  which  is  the  predicted  high-water 
mark  of  the  symbol  table. 

REFSIZE  = nnn 

- expand  the  default  cross-reference  table  from  the 
default  size  (500)  to  nnn,  which  is  the  predicted 
number  of  cross-reference  entries. 

MACROSIZE  = nnn 

- expand  the  number  of  LITERALLY  declarations  from  the 
default  size  (100)  to  nnn. 

PROCSIZE  = nnn  (needed  only  in  conjunction  with  $V  toggle) 

- expand  the  number  of  allowable  procedure  definitions  from 
the  default  SIZE (SYTSIZE/4)  to  nnn.  Note  that  REFSIZE 
must  also  be  increased  by  about  30%  when  $V  is  On. 

NLIST 

- change  the  default  settings  for  toggles  L,  D,  and  R 
to  Off. 
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Two  additional  output  files  can  be  generated  upon 
request  from  the  XPL  compiler.  The  following  description 

output,  the  file  name,  and  the^toggle 
swztch  whxch  turns  on  the  output.  ^ 


Output  File 


Toggle 


Description 


OUTPUTS 


For  each  XPL  procedure , create  a 
PDS  member  containing  a template 
of  the  form; 


P:  PROCEDURE (ARC) ; 

DECLARE  ARC  BIT (16); 

DECLARE  LOCAL  VAR  BIT (16); 

END  P;  - 

which  describes  the  procedure 
definition  and  all  of  the  locally 
declared  variables.  if  the  I toggle 
IS  on,  a copy  of  the  impact  summary 
is  also  included  in  the  PDS. 


OUTPUTS 


For  each  XPL  procedure  which  is  called 
from  other  XPL  procedures , create  a 
PDS  member  which  duplicates  the  listing 
generated  via  the  V toggle. 


procedSre‘'nJL^bY:*^^®®' 


® ^i^ij^sting  all  underline  characters, 
truncating  the  name  to  8 characters,  if  necessary. 


If  duplicate  of  previously  generated  name,  truncate 

necessary,  and  catenate  on 

uniqueness  num.ber. 


memberS®croS?roTrta''r^h  merged  with  the  corresponding 

memoers  on  OUTPUTS  to  either  create  a new  PDS  or  seguential  file 

KPrSoil^iL^JSS!"^*  aescription  tor  each  proced"ure\^f 
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13 . 5 Updater 


UPDATER  performs  one  (and  only  one)  of  three  operations  in 
each  of  its  runs.  Operation  for  a given  job  step  is  determined 
by  the  first  card  in  the  input  stream,  which  is  called  the 
DIRECTOR  card.  This  card  and  other  control  cards  are  character- 
ized by  having  '$$'  in  columsn  1-2.  The  first  word  on  the 
directory  card  must  be  NEW,  NUMBER,  or  UPDATE.  Any  of  these 
may  be  followed  by  one  of  the  words  LIST  or  NOLIST;  the  default 
is  LIST  for  NEW  and  NOLIST  otherwise.  When  the  LIST  option  is 
in  effect,  a complete  listing  of  the  output  file  is  written  into 
the  data  set  named  on  the  SYSPUNCH  DD  card;  usually  'SYSOUT=A, 
DCB=(RECFM=FBA,LRECL=133,BLKSIZE=7182) ' is  used.  The  heading 
for  this  listing  is  taken  from  the  DIRECTOR  card  if  any  non-blanks 
are  found  after  the  control  information  (non-blanks  here  and 
between  control  information  means  characters  other  than  blanks , 
commas,  or  equal  signs). 

NEW 


The  NEW  operation  takes  card-images  from  the  SYSIN  input 
stream,  adds  file  numbers,  and  stores  the  numbered  file  (into 
the  OUTPUTS  data  set) . 


NUMBER 

The  NUMBER  operation  is  similar,  except  that  it  takes 
records  from  the  source  specified  on  the  INPUTS  DD  card  (80 
bytes  or  longer) , truncates  to  80  bytes  if  necessary,  appends 
file  numbers,  and  stores  the  modified  file. 

UPDATE 

The  UPDATE  operation  requires  a NUMBERed  file  as  input 
(INPUT  DD  card) , and  produces  a modified  file  as  output. 

The  DIRECTOR  card  may  additionally  specify  RENUMBER,  in  which 
case  the  output  file  is  written  with  equally  spaced  numbers. 

(The  order  of  RENUMBER  and  LIST/NOLIST,  if  both  are  specified, 
is  not  significant.) 

After  the  word  NUMBER  on  the  NUMBER  card,  or  after  the 
word  RENUMBER  on  the  UPDATE  card,  the  form  INCR  N,  where  N is 
a number,  may  be  specified.  This  will  cause  the  number  N to 
override  the  default  value  of  100  for  renumbering  the  file. 

The  first  record  on  the  output  file  will  have  the  value  N, 
the  second  record  will  be  2*N,  etc. 

Following  the  UPDATE  DIRECTOR  card,  UPDATE  Control  cards 
and  detail  cards  are  supplied.  If  none  are  present,  the  input 
file  is  simply  copied  to  the  output  file.  This  form  of  the 
UPDATE  operation  may  be  used  to  duplicate  a file  with  or  without 
renumbering,  or  if  LIST  is  specified  and  OUTPUT!  is  DD  DUMMY, 
a listing  of  the  INPUT!  file  is  obtained. 
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Detail  cards  may  be  specified  in  two  ways.  UPDATER  was 
designed  to  handle  card  images  which  have  no  space  allocated 
for  card  numbers.  However,  in  many  cases,  the  card  image 
actually  does  have  space  for  a number,  and  UPDATER  makes  use 

of  this:  the  first  form  of  detail  card  is  simply  a card  with 

ordinary  text  in  columns  1 through  72,  and  a card  number  some- 

where in  73-80.  Any  reasonable  form  for  the  number  is  valid, 
so  long  as  it  has  no  imbedded  blanks  and  has  a nonzero  value. 
UPDATER  replaces  columns  73-80  with  blanks  when  it  moves  the 
card  to  the  output  file. 

The  second  form  of  detail  card  is  required  when  some  of 
the  columns  73-80  are  needed  for  text.  In  this  case,  the 
detail  card  is  made  up  by  a control  card  containing  the  number , 
followed  by  the  text-card.  For  example, 

$$  34625 

. . . THIS  CARD  MAY  CONTAIN  TEXT  BEYOND  COLUMN  72.  . . 

In  both  cases,  the  detail  card  is  added  to  the  file.  If  its 
number  matches  that  of  a record  already  present,  that  record 
is  replaced;  otherwise,  the  detail  card  is  inserted. 

The  DELETE  control  card  is  of  the  form  '$$  DELETE  M'  or 
' $ $-  DELETE  M THRU  N ' , where  M and  N are  numbers . In  the  second 
form,  N must  be  >=  M.  The  effect  of  this  request  is  to  cause 
any  records  in  the  range  M through  N,  inclusive^  to  be  deleted. 

M and  N need  not  be  numbers  of  actual  records  in  the  file,  but  a 
warning  is  issued  if  no  records  at  all  are  found  in  the  M-N  range. 

The  INSERT  control  card  is  of  the  form  '$$  INSERT  AFTER  M' 
or  '$$  INSERT  AFTER  M INCR  N' , and  causes  all  the  following  cards 
up  to  the  next  control  card  to  be  inserted  after  the  last  record 
whose  number  is  not  greater  than  M.  If  renumbering  is  in  effect, 
the  number-increment  used  is  the  standard  renumbering  increment; 
if  not,  either  the  specified  increment  N,  or  a default  value  if 
INCR  N is  not  specified,  will  be  used  so  long  as  the  resulting 
number  does  not  equal  or  exceed  the  number  of  the  next  sequential 
record.  If  it  does,  renumbering  is  automatically  activated  from 
that  point  on. 

The  REPLACE  control  card  is  of  the  form  '$$  REPLACE  M' , 

'$$  REPLACE  M THRU  N' , ' $$  REPLACE  M INCR  J',  or  '$$  REPLACE  M 
THRU  N INCR  J' , where  M,  N,  and  J are  numbers.  When  the 
THRU  form  is  used,  N must  be  >=  M.  The  effect  of  this  command 
is  to  delete  records  in  the  range  of  M thru  N inclusive,  replacing 
them  with  all  cards  following  up  to  the  next  control  card,  with 
numbering  beginning  at  M.  If  INCR  is  not  specified,  the  default 
increment  of  10  is  used.  The  same  effect  as  in  INSERT  takes 
place  if  the  numbering  of  the  inserted  cards  exceeds  that  of 
the  next  sequential  reocrd.  It  is  not  necessary  that  numbers  M 
or  N be  in  the  input  file,  but  a warning  will  be  issued  if  there 
are  no  cards  within  the  specified  line  number  range. 
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The  EXTRACT  coitunand  is  used  to  remove  a section  of  a 
program  from  a larger  file.  It  may  be  used  as  often  as 
necessary  to  isolate  various  segments  from  a program.  The 
allowable  forms  are  '$$  EXTRACT  M'  or  '$$  EXTRACT  M THRU  N , 
where  M and  N are  numbers.  The  effect  of  the  command  is  to 
skip  from  the  current  input  record  to  line  M,  and  then  to 
copy  lines  M thru  N inclusive  to  the  output  file. 

The  END  command  is  used  in  conjunction  with  the  EXTRACT 
command.  The  form  is  simply  '$$  END’.  If  this  card  is  Jt  the 
end  of  a series  of  EXTRACT  commands,  the  last  specified  record 
on  the  previous  control  card  (or  insertion  if 
will  be  the  last  record  on  the  output  file.  If  the  END  card 
is  not’ present,  the  rest  of  the  input  file  from  the  current 
record  to  the  end  of  the  file  will  be  copied  to  the  output 
file. 

Updater  requires  that  detail-card  numbers,  the  FROM  values 
on  DELETE  cards,  and  AFTER  numbers  on  INSERT  cards  fopi  a strictly 
monotonic  sequence.  In  the  event  that  an  invalid 
or  other  serious  error  is  detected,  updater  causes  the  30b  step 
?o  abend.  This  allows  the  use  of  ’ DISP= (NEW, KEEP, DELETE) ' on 
the  OUTPUTS  DD  card  to  avoid  using  up  a data  set  name  in  case 
of  a bad  update . 

The  value  of  the  renumbering  increment  is  100,  and  of  the 
default  insert- increment  is  10. 

When  the  listing  option  is  in  effect,  it  is  necessary  to 
specify  ''PARM=’FREE=44000'"  on  the  EXEC  card  of  the  3°^ 
otherwise  " PARM= ' ALTER may  be  used.  It  is  suggested  that  a 
SYSPUNCH  DD  card  always  be  used;  if  a listing  is  not  wanted, 
use  ' //SYSPUNCH  DD  DUMMY ' . 


’<•(> 
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. 6 XPL  ZAP 


or?Prob|ecrSleJ  ^"=P®=«on 
cL^es  fn.o 


with  its^own\Se®of°addreL?^  *°“"  data,  each 

addresses  correspond  to  the'  address'’®  Pf?9ram  area, 
the  pght  of  the  statement  appear  to 

instruction  in  the  proIedLe°‘”'’™®'^a''®^®''^''®  *=°  the  first 
to  the  sL  SI  ttl-disoLcf^  addressed 

f?ff?®P°"'iing  base  reoiLer  of  the 


corresponding  S^le^SSTStS?"  11  -"^®"bs  oF  the 
information  at  the  end  of  Ihe  lS?  ■ tn  the  summary 

area  has  only  one  dedicated  Ise  "®'  ’''’®  -iescriptol  ^ 

displacement  ck  register,  anti 


ancr.  V,  ---  --  -lie  ena  ot  the  Hcjt-inl,  m,  aumma; 

area  has  only  one  dedicater^  ring.  The  descriptor 

displacement  as  shown  i^th«  f®gister,  and  thus  the 
directly.  The  fi?rcontri?  b^Led 

this  area  are  not  re^^  ^Iso  be  examined,  ' 
failures  may  result.  . ^ recommended,  as  program 


The  program  is  desian^at?  4-^ 

or  in  the  batch  mode.  11®!  ba?cSP®P|  interaotivelv 

card  images  are  printed  on  tho  mode,  the  control  ^ 

mode,  control  card  errors  wi1  HPuI  listing.  in  either 

ions  (until  the  next  file  command modlfica- 


followed  byHetHopim  °5,f  Command  character 

hexl?:c11-ai11®^<^resses  and 

replace- 

. control  card  or  the  character  - f • of  a 

scan.  In  the  following  descJi control  card 
used  to  indicate  the  ildrllsinn  character  a Js 

forms  are;  sccressing  mode.  The  allowable  ' 
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L M.SS.CHUStTTS  0.3S  ■ as,  ... 


Character 


Addressing  Mode 


■% 


D 

C 

P 

I 


Program  area 

Data  area 

Descriptor  area 

File  Control  Block  area 

Compiler  Identification  area 


Any  other  characters  for  a will  cause  the  program  area 
to  be  used. 

All  addresses  are  truncated  to  the  nearest  halfword 
address.  All  replacement  or  verification  data  must  be 
specified  in  halfword  multiples,  separated  by  blanks  or 
commas.  For  the  conutiands  which  accept  string  operands',  do 
not  attempt  to  specify  the  character  quote  ( ' ) within  the 
string.  This  must  be  done  in  hexadecimal. 

The  compiler  identification  area  is-  a 10  character  field 
which  is  used  to  describe  the  particular  compiler  version. 
There  is  only  one  per  XPL  program  complex,  and  it  must  be 
modified  in  its  entirety.  The  standard  format  is: 

'XXXX-RR.VL' 

where : 

XXXX  indicates  the  compiler  name, 

■RR  indicates  the  release  number, 

V indicates  the  version  number,  and 

L indicates  & ZAP  sub-level  (blank  or  0 being 

equivalent  to  unzapped  complex). 

The  enclosed  prototype  JCL  illustrates  all  of  the 
necessary  DD  statements  to  run  XPLZAP.  The  sequence 
"YOUR  XPL  PILE"  is  to  be  replaced  by  the  appropriate  data 
set  name  and  any  other  specifications  required  by  the  instal- 
lation to  access  the  data  set.  A second  example  shows  an 
actual  XPLZAP  run.  ' 
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XPLZAP  Command  Summary 


Items 

operands. 


enclosed  in  brackets  ( [ ] ) are  optional 


Coirumand 

La  address*  [length] 


Da  address*  [length] 


Ra  address*rl,r2, . . .rn 


Va  address* vl, v2 .vn 


Description 

List  "length"  bytes  in  hexadecimal 
beginning  at  the  specified  address. 
If  length  is  omitted,  it  defaults 
to  .32  (20j^g). 

Display  "length"  bytes  in  EBCDIC 
beginning  at  the  specified  address. 

If  length  is  omitted,  it  defaults 
to  32  (20^g) . 

Replace  n halfwords  starting  at  the 
specified  address  by  halfwords  rl, 
r2,  etc.  Previous  errors  will 
inhibit  changes. 

Verify  n halfwords  starting  at  the 
specified  address  comparing  >/ith 
halfwords  vl,  v2,  vn. 

Signify  end  of  run.  Any  clean  up 
will  be  performed  at  this  time. 

An  END-OP“PILE  on  SYSIN  is  equivalent 

Print  the  date  and  time  of  generation 
of  the  XPL  module. 


Print  the  log  of  previous  replacements 
(includes  addresses  and  date  and 
time  replacements  were  made) . 

Specifies  the  maximum  number  of  XPL 
object  modules  in  a complex.  This 
card  must  be  the  first  card  in  an 
XPLZAP  run  ^ if  more  than  one  XPL 
module  is  in  a file,  even  if  only 
one  is  being  altered. 

Specifies  that  XPL  module  n is  to  be 
examined  and/or  altered.  This 
command  also  allows  replacements  to 
take  place  if  previous  commands  were 
in  error. 


4 •- 
■*» 


C x+y 
x-y 


Calculate  the  result  of  the  expressior 
involving  hexadecimal  operands,  and 
print  result.  The  expression  is 
evaluated  left  to  right  with  no 
precedence . Only  + and  ~ are 
supported. 


If  a ~ 'I',  the  address  field  is  omitted 
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Command  Description 

Ra  address* ' string ' Replace  n/2  halfwords  starting 

at  the  specified  address  by  the 
n characters  enclosed  in  quotes 
(n  must  be  even) . 

Verify  n/2  halfv;ords  starting  at 
the  specified  address  with  the  n 
characters  enclosed  in  quotes  (n 
must  be  even) . • 

Search  for  occurrences  of  the  pattern 
sl,s2,., ,,sn  beginning  at  the  specified 
address  through  the  end  of  the  area 
specified  by  a. 

Sa  address*  'string'  Search  for  occurrences  of  n/2 

halfwords  containing  the  n characters 
enclosed  in  quotes  beginning  at  the 
specified  address  through  the  end  of 
the  area  specified  by  a . (n  must 
be  even . ) 

; anything  No  action  (for  commenting) . 


Va  address* ' string ' 


Sa  address*  si , s2  , sn 


* Tf~ a - ' I the  address  field  is  omitted. 
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//JORMAi;?: 
//XPLZAP 
//STL' PL  I B 
//PPOGRAM 
//FI  LEI 
//SYS  PRINT 
//SYS  I I! 


JOB  ACCT,  PROGRAHI'FR.  I P,  REG  I Of'=  RO K,  T I !‘r--=  1 
EXEC  pnri=r.-xpLS(i, parm=  ' ratch' 

DO  Dl SP=SHR, nSM=HALS.MONITOR- 
DD  DI  SP=\SI!R,  DSt'--=HALS.XPL7AP 
pn  Dl  SP“01.n,  DSN="YOUR  XPL  FILE" 
no  SYSOUT=A^  DCB=BLKSI7.E=1330 


<XPL7,AP  CONTROL  CARDS> 


FIGURE 


PROTOTYPE  JCL 


JOB  ACCT,  PROGRAHMFR.  I D,  REG [ n.M=6 0 K,  T I f ' 1 
EXEC  PGfi=XPLSM,PARfl=’RATCI!’ 

DD  Dl  SP^SMR,  DSII^^MALS.MOMITOR 
Dt)  Dl  SP---SIIR,  DSK'=HALS. XPLZAP 
PD  Dl  SP=OLD,  nSM=IIALS.COf’P!  LER  ■ 
no  SYSOUT-A, nCB=BLKSIZE=133n 


:AMPLE  7.APS  BOTH  THE  FIRST  AMP  SFCOHD  FILFS  I?'  A 4 FILE 


I T PFFI HES 
360--13.0  ' 
360-13.01' 


.1  RELEASE  LEVEL  II!  PHASE 


51PR 


HOW  [ 

4760 

47F0 


SAKE  ACTUAL  CHAMQF.S  III  SFCOMD  FILF 


5254  0101  78AO  4780  F3BC 


IPn  4910  7800  4780  F32E  47F0  F3BC 


5icn 


F3ln 

F32F 


FIX  RECOGMIZIMG  CSE'S  ACROSS  COUP  I T I n.U  Al.  S 


FIC-UHE  2.  TYPICAL  XPLZAP  RUM 
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13.7  JCL  and  DD  Names 


Sample  JCL  for  documenting  XPL  run: 


//XPL  EXEC  PGM=MONITOR, 

//  PARM= ' SYTSIZE=1800,REFSIZE=20000 ,LISTING2 , $I , $V,  $U  , $W 

//STEPLIB  DD  DISP=SHR,DSN=HALS. MONITOR 

//PROGRAM  DD  DISP=SHR,DSN=HALS .XCOMLINK 

//INPUT2  DD  DISP=SHR,DSN=HALS.LINKLIB 

//SYSIN  DD  DISP=SHR,DSN=your  XPL  source  program 

//SYSPRINT  DD  SYSOUT=A 

//LISTING2  DD  DISP=MOD ,DSN=your  error  log  dataset 
//OUTPUTS  DD  DISP=OLD ,DSN=your  procedure  template  PDS 
//OUTPUTS  DD  DISP=OLD ,DSN=your  procedure  reference  PDS 
//FILEl  DD  DISP=OLD,DSN=your  XPL  object  file 

//FILE2  DD  UNIT=SYSDA,SPACE=(CYL,3) 

//FILE3  DD  UNIT=SYSDA,SPACE=(CYL,3) 

//FILE4  DD  UNIT=SYSDA,SPACE=(CYL,,  3) 


XPL  Reference 

DD  NAME 

=INPUT (0) 

SYSIN 

=INPUT(1) 

SYS  IN 

=INPUT (2) 

INPUT2 

=INPUT (4) 

INCLUDE  (PDS) 

=INPUT  (5) 

ERROR  (PDS) 

=INPUT (6) 

ACCESS  (PDS) 

=INPUT(7) 

INCLUDE  or  OUTPUTS 

OUTPUT ( 0 ) = 

SYSPRINT 

OUTPUT (1)= 

SYSPRINT 

(including  carriage  control) 

OUTPUT  ( 2 ) = 

LISTING2 

OUTPUT  (3)  - 

OUTPUTS 

OUTPUT  (4)  = 

OUTPUT4 

OUTPUT ( 5 ) = 

OUTPUTS 

(PDS) 

OUTPUT  (6)  = 

OUTPUTS 

(PDS) 

OUTPUT  (7)  = 

OUTPUT7 

OUTPUT  (8)  = 

OUTPUTS 

(PDS) 

FILE (l,n) 

FILEl 

PILE(2,n) 

FILE2 

PILE(3,n) 

FILES 

PILE (4, n) 

FILE4 

FILE(5,n) 

FILES 

FILE(6,n) 

FILES 
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